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JUST RELEASED! 

$99.95 "SUPER ARCHIVER II"! 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITERI; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICE! If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 "SUPER ARCHIVER"! 8 $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATAR1 1050! It eliminates the need for Patches, PDB files, Computer 
Hardware, etc. Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 



• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 

up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



• TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

• SECTOR orTRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



$79.95 



'BIT-WRITER"! 



$79.95 



The Super Archiver "BITWRITB?"! is capable of dupicatlng even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 



$69.95 



4 ULTRA SPEED PLUS" 



$69.95 



Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK in Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 



ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boof dlrecfly from RAMDISK 
Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 
Reverse use of OPTION key 
Cold-start without memory loss 
Built-in floppy/disk configuration 
editor (1-9) 



- Built in RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

- Built In MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

» Toggle Internal BASIC 



• Ram resident disk loader 

Brogram (MACH 10 menu) 
OUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems in 
one (XL/XE, 4007800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XF551 Atari drive is a fine product with one major flaw.. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF551 ENHANCER to the new XF551 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF551 ENHANCER is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for Info. 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shlpping/Handllng/lnsurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for S3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am • 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 



A 
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$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY" 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



• Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 
One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



Insert and Delete 
Search Mode 
View only mode 
Memory Statistics 
Alternate Output 
Change screen Colors, 
borders, luminesce 
Mouse compatible 



$39.95 



THE "QUINTOPUS!" 



$39.95 



The "QUINTOPUS!" is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, eta). The "QUINTOPUSI" is an I/O port expander that 
converts a single I/O output/Input into five additional outputs/inputs Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the "QUINTOPUS!" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUSI" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTS!) 

This Deluxe version of the "QUINTOPUS!" has all of the above features with 
the additional benefits of two SWITCHABLE PORTS! This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 
or computers without the hassel or re-arranging I/O cables .... simply flip 
a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 



Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW. .only 
their literature or packing may have slight cosmetic imperfections All items 
are fully warrantied! Quantities are limited! No rainchecks! 







LIMITED 




NORMALLY 


SPECIALS 


1. PILL (without case) 


$ 70 


$19 


2. SUPER PILL (without case) 


80 


22 


3. XL FIX ROM 


70 


19 


4. ULTRA MENU/DOS 


30 


19 


5. DISKCRACKER (Newest version) 


50 


19 


6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. MIRACLE (Disk only Version of Impossible) 


70 


19 


9. IMPOSSIBLE for 800 or 800XL 


150 


69 


10. XL MATE 


30 


15 


11. COMPACTOR 


30 


15 


12. KLONE II (Generic HAPPY backup) 


100 


75 


13. SILENCER 


30 


19 


14. BLACK PATCH (MASTER) 


50 


25 


15. BLACK PATCH DATA DISKS 1 & 2 


20 


10 



•Order 5 items or more and we will pay the freight! 

These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 
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NEWSROOM XETEC FIX 

I own an Atari 130XE, a Panasonic 1080i 
printer and a Xetec Graphix interface. This 
setup worked fine, until I got Newsroom 
from Springboard Software. For some rea- 
son, I got a lot of strange characters on 
my page when I tried to create a newslet- 
ter. Springboard's customer support was 
unable to help me, but with the help of 
a friend and a lot of experimentation a fix 
was found. 

Set the Newsroom printer driver to Ep- 
son MX-70 and set the Xetec DIP switch 
to the ON position. The program will run 
faultlessly. Just don't forget to reset the DIP 
switch when you're done! 

Robert Shutts 
Joliet, IL 

TALKING TODDLE 
AUTOLOAD 

My kids just love Talking Toddle Type (Oc- 
tober 1988 disk bonus). To speed up the 
fun, those with a 130XE and SpartaDOS 
3.2 can AUTOLOAD the .SPK speech files 
with a STARTUP.BAT file. Put TOD- 
DLE.EXE, all the .SPK files, and the Spar- 
taDOS system file RD.COM on a Spar- 
taDOS formatted disk with X32D.DOS on 
it. Create a file named STARTUP.BAT on 
the same disk containing the following 
commands: 

BASIC OFF 

KEY OFF 

RD D3: 

COPY D1:*.SPK D3: 
TODDLE.EXE 

This batch file turns off internal BASIC 
so you don't have to hold down [OP- 
TION] . The keyboard buffer is also turned 
off, since kids usually press the keys longer 
than adults. An internal RAMDISK 
named D3: is created to store the .SPK files 
which are subseqently loaded into mem- 
ory. Finally, the assembly language pro- 
gram is loaded and executed. 

When the initial Toddle Type selection 
menu appears, [SELECT] the Speech Drive 
and [3]. Press [START] and away your kids 
go. My next project is to figure how to 



make Drive 3 the default Speech Drive in 
the assembly language program and elim- 
inate the need to [SELECT] the correct 
Speech Drive and press [START]. Any sug- 
gestions? 

Rick Reaser 
Pacific Grove, CA 

Any SpartaDOS users out there have some 
suggestions?— ANTIC ED 



WONDERFUL 

I think it is wonderful that you have 
decided to give more space to the Atari 
8-bit computers. It is wonderful that some- 
body still cares, and it is with gratitude that 
I am subscribing for the disk issue. I hope 
I am helping you in your endeavor to sup- 
port the Atari 8-bit. Thanks for the many 
years of support. 

Nathan Block 

St. Louis Park, MN 

You 've given us the best help we can ask 
for. As 8-bit advertisers drift away, sub- 
scribers like you enable us to keep on do- 
ing the job of fighting to keep the 8-bit 
Atari alive.— ANTIC ED 



EXTRA 130XE MEMORY 

I am trying to use the extra memory on 
my 130XE to run a long program, and my 
lack of success has me confused. How can 
I load my program and data into the extra 
memory? 

Norman Hall 
Allentown, PA 

Two articles from Antic back issues might 
be of assistance. 130XE: How Atari's New 
8-bit Does It ffuly 1985) lists some of the 
specifications for the extended RAM. In 
130XE Memory Management (November 
1985), Ian Chadwick, author of the in- 
valuable resource "Mapping the Atari" 
(COMPUTE! Publications) tells how to 
use that extra 64K, and includes a type- 
in BASIC tutorial program.— ANTIC ED 
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POLYHEDRON PRINTOUTS 

I wrote you to see if there was a screen 
dump program that would produce a re- 
verse printout (black on a white back- 
ground) of screens generated by Poly- 
hedron Designer (October 1988). A few 
days later I remembered your December 
1987 Disk Bonus, Antic Publisher. I ran 
Antic Publisher, loaded a PICTURE.PIC file 
from Polyhedron Designer, and obtained 
a black-on-white image I could edit with 
the Graphic Editor. Another case where 
a writer answered his own question! 

Theodore Winkel 
Madison, IN 



POLYHEDRON PROBLEMS 

I just finished booting the October 1988 
Antic monthly disk. Talking Toddle Type 
is great and The Seven Skulls was a chal- 
lenge. Having worked as a Russian linguist 
for a number of years, I really enjoyed the 
Quizzer program. Imagine my dismay 
when Polyhedron Designer didn't work. 
It split the design and put it all over the 
screen. What happened? 

Keith Hansen 
Warrensburg, MO 

It's impossible to tell what went wrong 
just from your letter. The most likely prob- 
lem is that the parameters were entered 
incorrectly and resulted in an object too 
big to show on screen. Try using the 
parameters shown in the screen shot on 
page 29— the results should be the same 
as in the picture.— ANTIC ED 



PAPERCLIP TRANSPLANTS 

Dr. Brilliant stated in his article on mem- 
ory upgrades (November 1988) that the 
only use for expanded memory on a 
130XE would be a large RAMdisk. Right 
at this moment I am using the 130XE ver- 
sion of PaperClip on a 130XE beefed up 
to 320K. (I have the upgrade by Scott 



Peterson.) With my expanded memory I 
have 128K of space in which to type my 
document. I would say this qualifies 
as a commercial program that uses the 
extra RAM. 

Brent Fisher 
Jackson, MI 

Since PaperClip is not currently available 
commercially, this doesn't completely dis- 
prove Dr. Brilliant's assertion. Still, there 
may be other programs that utilize the 
extra RAM. We'd be glad to hear from 
readers who use any such programs.— 
ANTIC ED 



UP TO ATARI 



I was pleased to read in your October 1988 
Editorial that you will be increasing the 
amount of space dedicated to the 8-bit. 
I would also like to see more software 
offered in The Catalog. At the end of the 
editorial you said, "What happens is 
largely up to you — the Atari 8-bit user." I 
would like to take issue with that 
statement — I believe that is is up to Atari 
Corp. to get off their duff and support us 
8-bit users. If Atari would advertise and 
come out with an inexpensive hard drive, 
maybe they could compete. 

Ross Himes 
Chesterton, IN 

As announced in the fanuary 1989 
Antic, we're working on getting more 8- 
bit products into The Catalog. For us, a 
lot does depend on you users. We're in 
business, and if 8-bit products don *t sell, 
we can't keep offering them. So en- 
courage your friends and local dealers 
to buy Antic 8-bit Software!— ANTIC ED 



NOISY 1050 



I've read many complaints of noisy Atari 
1050 disk drives. To fix the problem, take 
off the cover and put a very light drop of 
fine machine oil (sewing machine oil is ex- 
cellent) on the metal runners on which the 



head moves back and forth. Voila! A quiet 
1050! I've been doing this for three years 
now and have never had a problem. Just 
remember to use a very small amount, so 
oil does not get on the head itself. 

Michael Seaman 
Willowdale, Ontario 
Canada 

As always, please keep in mind that open- 
ing the drive voids any warranty you 
might have left. Antic takes no responsi- 
bility for results of home repairs or hard- 
ware modifications— ANTIC ED 

DESPERATELY SEEKING 
RECORDER 



I am writing to you after many attempts 
to locate an Atari 1010 Cassette Recorder. 
It seems the 1010 Recorder is out of pro- 
duction. Is there any way I can hook up 
my audio cassette to my Atari 800XL so 
I can retrieve data and programs stored on 
cassette? 

John Holland 
Columbia, SC 

Unfortunately, you can't use an audio 
cassette with your 800XL. Your best bet 
is probably to get in touch with a local 
users group, where someone probably 
can get you access to a 1010. One group 
in your area is: GRACE (Greenville 
Regional Atari Computer Enthusiasts), 
18 Bedford Lane, Taylors SC 29687 — 
ANTIC ED 



Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much leader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 
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American Techna- Vision 

For Orders Only - 1-800-551-9995 
CA. Orders / Information 415-352-3787 



"Providing 8 Bit support with one of the Worlds 
largest inventories of Atari replacement parts" 

• No surcharge for VISA/MasterCard 

• Your card is not charged until we ship 



800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ ^ Q50 



WORD PROCESSORS 

• PaperClip (Disk) $29.95 

• AtariWriter (Cart.) $29.95 

• Bank Street Writer (D) . $17.50 

• Cut & Paste (Disk) $17.50 

• Letter Wizard (Disk) . . . $17.50 



FLAT SERVICE RATES 

1050 DISK DRIVE $75.00 

810 DISK DRIVE $69.50 

850 INTERFACE $39.50 

800 COMPUTER $49.50 

1200XL COMPUTER $49.50 

Flat rates include Parts & Labor, 60 day 
warranty. Include $7.00 shipping & insurance 



800/400 MODULES 

NEW PARTS COMPLETE WITH ICS 
en • CX853 16K Ram Module 
ou -800 Main Board 

■ 800/400 CPU with GTIA 

■ 800 10K "B" O.S. Module 

• 400 Main Board 

• 400 Power Supply Board 



9 : 

EACH 



800 Power Supply Board $14.50 
INTEGRATED CIRCUITS 

•CPU CO14806 

• POKEY C012294 

• PIA C014795 

•GTIA CO14805 

•ANTIC C012296 

•CPU CO10745 

• PIA CO10750 

•CPU C014377 

• DELAY CO60472 

•2600TIA.. CO10444 

• PIA C012298 

•CPU 6507 

• PIA 6532 

•RAM 6810 

• CPU 6502B 



$^J50 

EACH 



C061598 $20.00 
C061991 $15.00 
1050 Rom $13.50 
C061618 $20.00 



C021697 $15.00 
C025953 $9.50 
5713 .... $5.25 
C024947 $15.00 



1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments requirea (J^y £Q 



VISICALC 

SPREADSHEET 

Unleash the computing power $ a r\QS I 
of your 8 bit Atari withVisicalc. | y 
Compute everything from home [)|SK 
finances to high powered finan- 
cial projections. Hundreds of uses. 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairsl Set 
contains one each of the ^ . ^ Q c i 
following: CPU. GTIA, $ 1 yD ■ 
ANTIC, PIA AND POKEY. I v 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
800, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISC. HARDWARE 

13 Pin Serial I/O Cable .... $5.95 
1050 Track 0 Sensor . . . $8.50 
2793 1050 Controller IC . . $19.50 
Paddle Controllers (Pair) . . $6.50 
400 3 Piece Board Set . . . $19.50 
Fastchip for 800/400 . . $15.50 
Animation Station .... $74.95 
Rambo XL w/o Ram IC's $39.95 
Supra 2400 Baud Modem.. $15750 

ACE Joystick $7.95 

850 or PR Modem Cable $14.50 
850 or PR Printer Cable $14.50 

Printer Interface $39.95 

I/O 13 Pin PC mount . . . $4.50 

I/O 13 Pin Plug Kit $4.50 

ST 6' Drive Cable $14.00 

810 Door Latch Assy. . . $10.00 

1027 Transformer CALL 

U.S. Doubler $29.95 

ST Monitor Connector . . . $5.50 
ST Dive connector plug. . . $6.50 
ST to 5/14 " Drive Cable $23.95 



TOWER PACKS 

Exact replacement trans- 
former for 800/400,1050 
810, 1200XL, 850, XF551 & 
1020 units. Part #0017945. 



$-|450 



XL/XE SUPPLY 

Pcwrer Pak lor 800XL.600XL 
130XE, 65XE & XE Game. 



$ 25 



.00 



THE BOOKEEPER 
AND CX85 KEYPAD 

You get both Atari's 8 bit 
professional bookeeping $"1Q95I 
system and the handy CX85 1 ^ 
numeric keypad for one low 4 DISK 
price. Packages factory sealed. SET 



KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800XL $29.50 

400 $12.50 



COMPUTER BOOKS 

Atari Playground Workbook $7.95 

Hackerbook $5.00 

Inside Atari Basic $5.00 

Atari Basic Ref. manual. $5.00 

How to 6502 Program. . . $5.00 

Programmers Ret. Guide $14.95 

Basic- Faster & Better . . . $22.95 

Assembly Language Guide $21.95 

XE Users Handbook ... . $21.95 

XL Users Handbook .... $2 1.95 

Advanced Programming $19.50 

Write Your Own Games. $5.00 

Mapping the Atari $18.50 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in IC's . . . $39.50 

PR: CONNECTION 

Serial Parallel Interface for connecting 
modems and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 1200XL $15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. Specify 
dual 2764 or single 27128 style. Gold 
.contacts $6.95 



• SOFTWARE • J 

Cartridges for all 8 bit Atari computers 

Millipede Cartridge $10.00 

AtariWriter Cart $29.95 

Pac-Man Cartridge $4.00 ] 

Deluxe Invaders Cart $4.00 

Journey to the Planets Cart. $4.00 

Donkey Kong Cart $5.00 

Crossfire Cartridge $5.00 

Atlantis Cart $5.00 

Q'Bert Cartridge $10.00 

Choplifter Cart $10.00 

Zone Ranger Cart $12.50 

Silicon Warrior Cart $12.50 

Learning with Leeper Cart. $12.50 

Up For Grabs Cart $12.50 

Eastern Front Cart $10.00 

PILOT Language Cart $17.50 

Edt/ Asm Cart, w/o man. . $15.00 

ACTION O.S. S $59.95 

BASIC XEO.S.S $59.95 

MAC-65 O.S.S $59.95 

DISK SOFTWARE 

PaperClip $29.95 

Visicalc Spreadsheet . . . $19.95 
Bookeeper + CX85 Keypad $ 19.95 

Mission Asteroid Disk $4.00 

Frogger Disk $5.00 

Fort Apocalypse Disk .... $5.00 

Spider Man Disk $5.00 

The Hulk Adventure Disk . . $5.00 
Wizard & The Princess . . . $5.00 
Ulysses & Golden Fleece $5.00 
Human Torch & The Thing $5.00 

Musical Pilot Ed. Disk $5.00 

Confutation Disk $5.00 

Debug Childware Disk .... $5.00 

Crystal Raider Disk $5.00 

Dispatch Rider Disk $5.00 

Master Chess Disk $5.00 

Molocule Man Disk $5.00 

Speed King Disk $5.00 

Last V-8 Disk $5.00 

Fractions Tutorial Disk .... $5.00 

Reading Skills Disk $5.00 

Chambers/Zorp Disk $5.00 

Pathfinder Disk $5.00 

Match Racer Disk $5.00 

Encounter/Questar Disk . . . $5.00 
Wombats Adventure (D) $5.00 
Sports Spectacular Disk . . $7.50 

Stratos Disk $7.50 

Clowns & Balloons Disk . . . $7.50 
Fun in Learning Disk .... $7.50 
Fun in Numbers Disk .... $7.50 
Honey Craze Math (D) . . . $7.50 

Dig Dug Disk $9.95 

Murder on the Zinfendorf $10.00 

DropZone Disk $12.50 

MoonMist Adventure (D) $14.95 

Mind Shadow (D) $14.95 

Bank Street Writer $17.50 

Master Typing Tutor ... . $15.00 
Cut & Paste W.P. Disk . . . $17.50 

The Factory Disk $20.00 

SpartaDOS Const. Set . . . $39.50 

DATASOFT DISKS 

Zorro Disk $9.95 

Saracen Disk $9.95 

Gunslinger Disk XL/XE $9.95 

Crosscheck Disk $12.50 

Mercenary Disk $12.50 

The Goonies Disk $12.50 

Conan Disk $12.50 

Never Ending Story (64K) $12.50 

221 Baker Street (64K) . . $17.50 

Letter Wizard W.P. (32K) $17.50 

kBasic Compiler for 800 $29.95^ 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $20.00. 
No personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders 
under $150.00. Add $2.25 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change vwthout notice Send SASE for tree price list Atari is a reg. trademark or Atari Cap. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 



SUPER DISK BONUS 



Escape From Dispozon 

Antic's biggest text adventure ever. 
Program by Kevin Sherratt 




Escape from Dispozon, by Kevin 
Sherratt, is a text adventure so 
good that we just had to bring 
it to you — even though it's much too 
long to even fit on one side of a disk! 
For the first time, Antic is publish- 
ing a two-part Super Disk Bonus. 
Part I takes up the entire Side B of 
this month's disk. The conclusion, 
Part II, will take up the entire Side 
B of the April 1988 Antic Disk next 
month. (No April fooling, folks!) 

Here's a sample of what the dan- 
gerous but quirky planet of Dis- 
pozon is like: 



IF ONLY. . . 

If only your name wasn't Havil- 
fad. No one takes a star pilot named 
Havilfad seriously. All right. . .so 
you had one little mishap and de- 
stroyed your ship, the Andromeda 
Doria. Mistakes happen! There was 
a planet nearby anyway, and you 
managed to get into the lifepod. 

If only the lifepod hadn't ejected 
you and melted in entry. Well, even 
so, it's not as though you're the first 
space pilot to be marooned on an 
unknown planet. 



If only the planet hadn't turned 
out to be Dispozon. Now really! A 
planet-fill site? A world covered in 
ten trillion cubic miles of trash? 
Where's the justice? But you're a 
survivor. 

If only Iggy weren't a survivor, 
too. Oh, you've got nothing against 
companion droids. In situations like 
this, companion droids are a pilot's 
eyes and hands. They're helpful and 
friendly, unassuming, selfless and 
obedient, following every command 
to the letter. 

If only Iggy was like that. . . 
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BONUS GAME 



You've heard of landfill sites? 
Well, Dispozon is a planetfill, a 
world-sized garbage dump — and 
you've had the bad taste to crash 
there. You and Iggy, your compan- 
ion droid, are stranded on an island 
of rubbish in a sea of sewage. This 
isn't a healthy environment for man 
or robot. The dangers of Dispozon 
are many and varied, from kittens 
and crabs to a crazed old coot. 

You, Havilfad, must find a way 
to escape the slimy, greasy, junk- 
filled shores of Dispozon — before 
you are fatally poisoned by the toxic 
smog. Winning the game involves 
finding and refitting an old aban- 
doned spaceship. Unfortunately, the 
only way to accomplish this is 
through the commands you give to 
Iggy, your not-so-obedient robot 
companion. 

Iggy will insult you, question your 
orders and tell you things you really 
don't want to know. When you get 
into trouble, you can always count 
on Iggy. He'll always say the helpful 
thing in a sticky situation, such as, 
"The crabs have cut us off! We'll die 
here. Oh, it's all right for you. You're 
totally lacking in oral hygiene and 
you have hideously poor posture. All 
in all, I'd say you were fortunate to 
end your life as an entree for these 
mobile seafood buffets. But what 
about ME?" 

Longtime text adventure players 
will undoubtedly find something 
familiar about Iggy, the self-centered 
companion droid. One of the most 
popular Infocom adventure classics 
was "Planetfall," featuring the well- 
meaning but klutzy robot, Floyd. 
Many players shed real tears when 
Floyd apparently sacrificed his life 
to save the day. And many reviewers 
hailed Floyd as the first truly well- 
rounded character in interactive fic- 
tion. Escape From Dispozon recalls 
much of the memorable atmosphere 
of "Planetfall" — except that you're 
marooned on a "planetfill" now and 



your companion isn't Floyd, but 
irascible Iggy the Droid. 

IMPORTANT: Due to some tinker- 
ing by the Antic technical staff (ac- 
tually duplicating a few key data files 
from Part II onto the March 1989 
disk) you not only will be able to 
experience the randomized in- 
troduction to the adventure — you 
can also solve the first few 
challenges of Escape From Dispozon 
using this month's disk alone. Admit- 
tedly this just gives you a taste of the 
complete game, but it's worth wait- 
ing for Part II. 

You need BOTH the March and 
April 1989 Antic Disks in order 
to attain final victory over the 
perils of Dispozon. If you try to 
go beyond the FOURTH ROOM 
without the Part II disk, the pro- 
gram will crash! 

Unfortunately, Escape From Dis- 
pozon was NOT designed by the 
author to play as a two-parter, so 
Antic just had to do the best we 
could. To repeat, Escape from Dis- 
pozon is a HUGE program in BASIC. 
Just the extensive text files contain- 
ing Iggy's responses take up some 
686 disk sectors. (Wordy fellow, isn't 
he?). 

This month's Antic Disk has a 
HELP file for Escape from Dispozon, 
with suggestions and a list of accept- 
able commands. To read the Help 
file or make a printout, select choice 
5, HELP.BAS from the Side A menu. 

Your March 1989 Antic Disk- 
featuring Part I of the Escape From 
Dispozon Super Disk Bonus as well 
as every type-in program from this 
issue — will be shipped to you within 
24 hours after receiving your order. 
Just phone Toll-Free to the Antic 
Disk Desk at (800) 234-7001. The 
monthly disk is only $5.95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $5 95 
check (plus $2 shipping and han- 
dling) to Antic Disk Desk, 544 Sec- 
ond Street, San Francisco, CA 94107. 



The daily commute has finally got- 
ten out of hand. You endured some 
messed-up streets before this, but to- 
day is the worst you've ever seen it. 
In desperation, you try taking that 
backroads route home, the one 
through the delta that oldtimers still 
tell stories about. And boy, are you 
sorry! Drawbridges, detours and truly 
impossible turns have made the drive 
home a nightmare, and you're not 
sure you didn't drive right into the 
Twilight Zone! Didn't that detour sign 
point left last time you went by? 



You have 
three cars 
with which 
to complete this 
demoniacally 
difficult 
course. 



Demon Racer is programmed in the 
fast, high-powered ACTION! lan- 
guage. This challenging driving game 
for one player is full of fast-scrolling 
thrills as you skid and crash through 
the tortuous course. If you beat the 
clock, you might get home in time for 
dinner — but your first objective is 
simple survival. 

GETTING STARTED 

Type in Listing 1, RACER.ACT, and 
Listing 2, SCREEN. ACT, and save a 
copy of each to disk before you start 
the game. 

Antic Disk users don't need the 
ACTION! language cartridge to use 
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type-In Software 



Demon Racer 

Desperate ACTION! 
commute through the Twilight Zone. By Jon Peterson 




Demon Racer is a fast-scrolling 
ACTION! game for one player 
that forces you to steer your car 
through roads filled with all sorts of 
devious obstacles. The program 
works on 8-bit Atari computers with 
at least 32K memory, disk drive. You 
also need the ACTION! programming 
language — unless you use the special 
runtime version of Demon Racer on 
this month's Antic Disk. 



Demon Racer. A runtime version, 
RACER.EXE, is on this month's disk. 
(Runtime ACTION! translations are 
nearly always too long for printing as 
type-in listings.) Copy RACER.EXE to 



another disk that has been formatted 
with DOS 2 or DOS 2.5, and make 
sure the disk contains a DOS.SYS file. 
Rename RACER.EXE to AUTO- 
RUN.SYS. To start racing, turn your 



Atari off, insert your RACER.EXE disk, 
remove all cartridges (XL and XE 
owners press [OPTION]) and turn on 
your computer. Demon Racer will 
load and run automatically. 

After the title screen is displayed, 
press [START] or your joystick button 
to begin. You have three cars with 
which to complete this demoniacally 
difficult course. 

Move the joystick left and right to 
steer your racer. Move the joystick for- 
ward to speed up. To slow down, 
move the joystick back or press the 
button. You can also press the space- 
bar to pause the game. Pressing any 
other key will resume play. 

If, against all odds, you complete 
the course, the demons will become 
angry and cause a thunderstorm with 
lightning to appear. If you wish to play 
again, press the [START] key. 

OBSTACLES: 

The following obstacles must be 
avoided to complete the course: 

Drawbridges open and close peri- 
odically. If you try to pass through an 
open drawbridge, you'll crash. 

Land mines will appear periodi- 
cally and must be avoided or you'll 
crash. 

Gates and Barricades open and 
close, while detours force you to 
maneuver around them. Also, detours 
move, so you must time your passage 
carefully. 

If you happen to crash at some 
point (more than likely), you will be 
sent back to the beginning of your 
current lap, with a new car and a 
three-second penalty. Remember, you 
only have three cars, and you'll prob- 
ably need them all. Good luck, 
Commuter. A 



Jon Peterson lives in Concord, Califor- 
nia. This is his first appearance in Antic 
Listing on page 22 
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When you want to talk Atari 



XL/XE HARDWARE 




CMO SPECIAL 

Atari 800XL $69" 

65XE 109.00 

130XE 149.00 

INTERFACES 

ICD 

P:R Connection 58.99 

Printer Connection 34.99 

Supra 

1150 39.99 

1151 (1200 XL) 40.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 

Atari 80 Column Card 74.99 

ICD 

BBS Express (ST) 52.99 

Sparta DOS Construction Set 27.99 

US Doubler/Sparta DOS 45.99 

Real Time Clock 48.99 

Rambo XL 26.99 

US Doubler 27.99 

MODEMS 

Atari 

SX21 2 300/1200 (ST) 78.99 

XMM301 44.99 

Anchor 

VM520 300/1200 ST Dir. Con . . . . 109.00 
A vatex 

1200 HC 89.99 

2400 169.00 

Supra 

2400 Baud XL/XE or ST 159.00 

2400 Baud (no software) 139.00 

MONITORS 

Magnavox 

CM 8505 14" Composite/RGB/TTL . . .189.00 



ST HARDWARE 



Call For Current Information 
On The Entire ST Line! 



□ 



$329 




ATARI SM1224 
RGB/Color Monitor 

520ST FM RGB/Color System. . .829.00 
SM124 Monochrome Monitor. . . .179.00 

A ATARI 



SSS/7/SJ 



CMO PACKAGE EXCLUSIVE 
Atari 800XL & XF551 Drive 

w/5 Undocumented ROMS Asteroids, Defender, 
Missile Command, QIX, Star Raiders $259 



DRIVES 



Atari 

ST 314 DS/DD 219.00 

XF551 Drive (XL/XE) 179.00 

LB. 

5V4 M 40 Track (ST) 219.00 

5V4" 80 Track (ST) 279.00 

LCD. 

FA* ST 20 Meg 629.00 

FA* ST 30 Meg 849.00 

FA* ST Dual Hard Drives Call 

Indus 

GTS 100 3 1 / 2 " DS/DD (ST) 189.00 

GT 1000 5V4" DS/DD (ST) 199.00 

GT Drive (XL/XE) 179.00 

Supra 

FD-10 10MB Removable Floppy .859.00 

30 Meg Hard Drive (ST) 649.00 

60 Meg Hard Drive (ST) 989.00 

CALL FOR DISKETTE SPECIAL 



PRINTERS 




EPSON LQ-850 + 
24-Wire, 330 Cps $499 

Atari 

1020 Printer, 40 Col. Color 19.99 

1027 Letter Quality XL/XE 69.99 

XDM121 LQ (XL/XE) 189.00 

XM-M801 XL/XE Dot Matrix .... 189.00 
Brother 

M-1109 100 cps Dot Matrix 159.00 

HR-20 22 cps Daisywheel 339.00 

Citizen 

120D 120 cps Dot Matrix 159.00 

Epson 

LX-800 150 cps, 80 col 189.00 

FX-850 264 cps, 80 col Call 

LQ-500 180 cps, 24-wire Call 

LQ-1050 330 cps, 132 col Call 

NEC 

P2200 pinwriter 24-wire 349.00 

Okidata 

Okimate 20 color printer 139.00 

ML-182 +120 cps, 80 column . .229.00 

ML-390 +270 cps, 24-Wire 539.00 

Panasonic 

KX-P1080i 144 cps, 80 col 169.00 

KX-P1091i 194 cps, 80 col 189.00 

KX-P1124 24-Wire, 192 cps 319.00 

Star Micronics 

NX-1000 140 cps, 80 column . . .179.00 

NX-1000 RainBow Color 239.00 

Toshiba 

P321-SL 216 cps, 24-wire 499.00 

Allsop Disk Holders 

Disk File 60-5 1 /4" 9.99 

Disk File 30-3 V 2 " 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 




SPECIALS XL/XE 



#AAB822P 822 Printer Paper $2.49 

#AA14746 T.V. Switch Box 2.49 

#AA4010 Tic-Tac-Toe 4.99 

#AA4011 Star Raiders 3.99 

#AA4012 Missile Command 3.99 

#AA4013 Asteroids 4.99 

#AA4022 Pac Man 4.99 

#AA4025 Defender 4.99 

#AA4027 QIX 4.99 

#AA4102 Kingdom (Cass.) 1.99 

#AA4112 States & Capitals (Cass.). 1.99 

#AA4121 Energy Czar 1.99 

#AA4123 Scram (Cass.) 1.99 

#AA4126 Speed Reading 2.99 

#AA4129 Juggle's Rainbow 1.99 

#AA415 File Manager 8.99 

#AA4204 1020 Color Pens 1.99 

#AA5047 Timewise (D) 3.99 

#AA5049 Visicalc (D) 24.99 

#AA5050 Mickey Outdoors 5.99 

#AA5081 Music Painter (D) 9.99 

#AA6006 Counseling Procedure. . . .1.99 
#AA7102 Arcade Champ (No J. Stk)6.99 

#AA8030 E.T. Phone Home 3.99 

#AA8048 Millipede 4.99 

Accolade 

Hardball 21.99 

Activision 

Hacker ll/Music Studio (ea.) 28.99 

Antic 

Flash 21.99 

Avant Garde 

PC Ditto 59.99 

Batteries Included 

Degas Elite 37.99 

Cygnus 

Starfleet 32.99 



ST SOFTWARE 





Access 

Leaderboard Golf 



$22" 



CLOSEOUTS XL/XE 



ROM CARTS (XL/XE) 
$2<>9 ea or 5 for $13" 



Sfe 



VIIMOIAMI ( ,,Min/tl 



Loose/Undocumented 

Choose from: Space Invaders, Star 
Raiders, Missile Command, Asteroids, 
Pac Man, Galaxian, Defender, QIX, 
Super Breakout, E.T., Eastern Front, 
Robotron. 
Rocklyn 

Gorf 2.99 

Anti-Sub (Disk) 2.99 

Journey to Planet 2.99 

Atari Program Exchange 

10 Different Cassettes For $11.99 



ST SOFTWARE 



Data East 

Speed Buggy 25.99 

Electronic Arts 

Auto Duel 31.99 

Isgur's Portfolio 129.00 

Firebird 

Silicon Dreams 1 3.99 

The Sentry/Tracker (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO Pascal 59.99 

Michtron 

Leatherneck 29.99 

Microprose 

Gunship 28.99 

F-15 Strike/Silent Service (ea.). . .24.99 
Miles Software 

ST Wars 24.99 

Mindscape 

High Roller 31.99 

Mark Williams 

DeBugger 45.99 

Paradox 

Wanderer (3D) 24.99 



SPECIALS XL/XE 



Access 

Leaderboard Golf 13.99 

Accolade 

Fight Night 19.99 

Hardball 19.99 

Atari 

Atariwriter Plus 35.99 

Broderbund 

Graphics Library 1 8.99 

Printshop 26.99 

Datasoft 

Alternate Reality (City) 23.99 

221 Baker St 20.99 

Electronic Arts 

Pinball Construction 15.99 

Microprose 

Silent Service 23.99 

Top Gunner 14.99 

F-15 Eagle Strike 22.99 

Origin Systems 

Ultima 4 36.99 

Strategic Simulations 

Battallion Commander 25.99 

Gemstone Warrior 11.99 

Sublogic 

Flight Simulator 34.99 



ST SOFTWARE 



Progressive Computer 

Graphic Artist 1.5 109.00 

Psygnosis 

Barbarian 25.99 

Soft Logik Corp. 

Page Stream 129.00 

Strategic Simulation 

Questron II 35.99 

Timeworks 

Swiftcalc (ea.) 46.99 

Desktop Publisher 79.99 

Unison World 

Printmaster Plus 25.99 




TimeWorks 
WordWriter 



$4499 



Call: 1-800-233-8950 

In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 
CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 



OVER 350.000 SATISFIED CUSTOMERS • ALL MAJOR CREDIT CARDS ACCEPTED * CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 



POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear. For faster delivery, use your credit card or send cashier's check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 
errors. 
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\Tjpe-In Software GAME OF THE MONTH 



Baker Solitaire 

All the cards are face up, so there's no excuse. By Tom Cline 
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Baker Solitaire is a computer 
version of Eight Off, an "open" 
solo card game. This BASIC program 
works on 8-bit Atari computers with 
at least 48K memory, disk or 
cassette. 



Almost everyone has played Klon- 
dike, perhaps the most popular of 
solitaire card games. In Klondike the 
cards are dealt face down (except for 
the top card) into seven columns with 
one card in the first column, two in 
the second column and so on. 

Klondike is an example of a closed 
solitaire game. A closed game is one 
in which a decision on the play of a 
card is made without full knowledge 
of all the other cards. 

Baker is an "open" solitaire game, 
a version of Eight Off, in which all 
cards are dealt face up. Since a player 
has complete information on all the 
cards, each position of the cards can 
be analyzed to determine the "best" 
next move. (Baker appeared in Mar- 
tin Gardner's column in the June 1968 
issue of Scientific American. The 
game is named after C.L. Baker, who 
introduced the game to Gardner.) 

GETTING STARTED 

Type in Listing 1, BAKER. BAS, 
check it with TYPO II, and SAVE a 
copy to disk before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 45-50, don't 
type them in. Instead, type Listing 2, 
check it with TYPO II and SAVE a 
copy. When you RUN Listing 2, it cre- 
ates these hard-to-type lines and stores 
them in a file called LINES. LST. 

To merge the two programs, disk 
users LOAD "D: BAKER. BAS" and 
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then ENTER "D: LINES. LST." Cassette 
users: CLOAD Listing 1, then insert 
the separate cassette used for Listing 
2 and ENTER "C:". Remember to 
SAVE the completed program before 
you RUN it. 

Baker can be played with two, 
three, or four suits of thirteen cards 
each. The degree of difficulty in- 
creases dramatically with the number 
of suits. 

Each suit is represented by a dif- 
ferent color. The card values are 
indicated by single-digit numbers and 



letters. A ten is indicated by a capital T. 

The cards are dealt face up into 
columns and rows called the "field." 
The number of columns of cards in 
the field depends on the number of 
suits used. Two suits yield six 
columns, three suits produce seven 
columns and all four suits give you 
eight columns. 

The object of the game is to sort all 
the cards of each suit into a separate 
pile, called a "terminal pile." The cards 
must be placed one at a time on this 
pile, in ascending order, with the Ace 

ANTIC, THE ATARI RESOURCE 



on the bottom and the King on top. 

Each terminal pile starts on one 
of the green stars at the upper right 
of the screen, in an area marked with 

a "T." 

In addition to the field and the 



terminal pile, a card may occupy a 
''parking space" at the upper left of 
the screen, in an area marked with a 
"P." There are as many parking spaces 
as suits. Each space is marked by a 
gold star with a letter underneath, and 
can hold only one card. 

RULES OF PLAY 

Within the field, an exposed card 
(a card at the bottom of a column) can 
be moved onto the next-highest card 
of the same suit, if it is also exposed. 

For example, if a green six is 
exposed in the first column, and a 
green seven is exposed in the second 
column, the six may be placed on 
the seven. 

A card in a parking space may be 
moved onto the field the same way. 

Any exposed card can be moved to 
an empty parking space. Each park- 
ing space will hold only one card at 
a time. 

Any exposed card, or parked card, 
can be moved onto the terminal pile, 
so long as it follows the sequence. 
Once a column is empty, any exposed 
or parked card can be moved to it. 

MOVING CARDS 

A card is moved using the key- 
board. First, press a letter indicating 
the column or parking space of the 
card to be moved. Next, press the let- 
ter indicating the card's destination. 
To move a card from column 'b' to 



parking space 'k', for example, you'd 
type BK. 

The first letter pressed will turn 
black to show you which card is be- 
ing moved. When the second letter 
is pressed, the card is moved, you'll 



hear a tone, and the first letter's color 
will change back to purple. 

If an illegal move is attempted, 
either one of the letters or the purple 
line will flash on and off for a few 
seconds. If you decide not to move 
a card, just press the key that cor- 
responds to the black letter. 

TAKE IT BACK! 

At any point you can use the space 
bar to "take back" a move and restore 
the previous positions of the cards. 
The program can remember up to 300 
moves — enough to go all the way 
back to the beginning of most games. 
You may want to use this feature to 
try a different line of play if you get 
stuck, or to study possible moves. 

Use the letter P to mark a position 
that you may want to return to. When 
you go back to that position using the 
spacebar, a buzzer will sound and the 
letter P will turn blue. These options 
can be very useful in studying play 
strategy. 

GROUP MOVEMENTS 

While only one card can be moved 
at a time, there are certain positions 
of the cards where it would be con- 
venient to move a group of cards. For 
example, if you're lucky enough to 
have a green 8, 7, 6 and 5 in the bot- 
tom of column b, and a green 9 at the 
end of column c, and enough open 
columns or parking spaces to move 



them all one at a time, you'd type TBC 
to move the 8, 7, 6 and 5 from column 
b to column c, all at once. 

If the group transfer cannot legally 
be made, one of the column letters 
will blink on and off several times. To 
stop this command without complet- 
ing a group move, press T again. 

You can save quite a few keystokes 
by using the letter T when you want 
to move a group of cards. If you're just 
learning the game, however, you 
should move just one card at time 
until you become more familiar with 
the game. 

To start a new game press the ESC 
key. Once you've won a game, BAKER 
will flash the word "WINNER" and 
tell you how many moves it took you 
to complete the game. Press any key 
to play again. A 



Tom Cline of Berkeley, California is mak- 
ing his debut in Antic. 

Listing on page 27 



HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call Toll Free: 
(800) 347-6969 

Write: 

Antic Customer Service 
P.O. Box 1919 
Marion, OH 43306 




You can use the space bar 
to "take back" moves — even back 
to the beginning, if you like. 
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■I Type-In Software 

RANDOM ATARI 

Enhancing the number generator. 

by david Mcintosh 



Random Atari is a teaching 
article and utility program 
that explains a little-known 
technique of generating 
a repeatable series of 
"pseudo-random" numbers 
that make it easier for you 
to debug your programs. The technique 
also produces a much wider range of 
random numbers. This BASIC program 
works on all 8-bit Atari computers of 
any memory size, with disk or cassette. 



The Atari 8-bit computer has an 
excellent random number generator. 
In fact, its biggest drawback is that the 
numbers it produces are too random! 

Random numbers are generated on 
the Atari by measuring random noise 
on an electronic circuit, and convert- 
ing this to a value between zero and 
65,535. This is divided by 65 , 5 36, to 
give a value between zero and one. 
These are excellent random numbers, 
but they are non-repeatable. If you run 
a program whose results depend on 
random numbers, you will never be 
able to repeat those same results. 

Being able to repeat results can be 
very important. For example, track- 
ing down an intermittent bug in a 
non-repeatable program can be a real 
nightmare. 

If only the error could be produced 
consistently, it would be much easier 
to find and correct. Or maybe you 
want to test various scenarios on your 
program, but can't be sure the test 
results were successful because you 
never get the same results twice. Or 
you have written a game with a 
beginner mode, and want the same 
obstacles repeated every time, while 
the advanced mode is to be random. 

Most computers have a very differ- 



ent type of random number genera- 
tor, based on a mathematical formula. 
An initial number, called the random 
seed, is taken from somewhere. If the 
seed is entered directly by the user, 
the series of psuedo-random numbers 
generated can be repeated, simply 



by using the same "random" seed. 
Using the repeatable numbers makes 
program testing and debugging much 
simpler. 

For truly random results, the ran- 
dom seed must be randomly gener- 
ated in some manner. On an Atari you 
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can simply use the built-in random 
number function. On other com- 
puters timing is often used to gener- 
ate random numbers. 

Once a random seed is obtained, 
the numbers are generated through a 
simple formula. The random seed 
value X is multiplied by a constant 
value C, and then divided by another 
constant, M. The remainder R is a 
number between 1 and M-l, and is 
divided by M to give the the required 
random value between zero and one. 
X is then set equal to R, to seed the 
next random number. 

The constants used in this program 
are: 

C = 397,204,094 

M = 2 31 -1 = 2,147,483,647 

GETTING STARTED 

Type in Listing 1, RANDOM. BAS, 
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check it with TYPO II, and SAVE a 
copy If you have trouble with the 
special characters in lines 20080- 
20090, 20120, 20140 and 20210, 
don't type them. Listing 2 will create 
them for you. Type in Listing 2, 
check it with TYPO II and SAVE it. 
When you RUN Listing 2 it creates 
a file called LINES. LST Merge this 
file with Listing 1 by typing LOAD 
' 'D : RANDOM . BAS and then ENTER 
"D:LINES.LST". (Cassette owners use 
ENTER "C:"). Remember to SAVE 
the completed program before you 
RUN it. 

Listing 3, RANDOM. M65, is the 
MAC/65 source code for the program. 
You do not need to type it in to use 
Random Atari. 

To RUN Random Atari, you need to 
set a variable X to a number between 
zero and M, and then enter GOSUB 
20000. The following lines will set 
X and then call Random Atari. 

100 X = 12345:GOSUB 20000 

110 FOR 1 = 1 TO 20:GOSUB 
20200:PRINT I,X:NEXT I 

120 END 

Here, the random seed is 12345. 
Every time this is RUN, the same 20 
random values will be produced. 
Now try setting X to zero on line 100. 
The program will generate a truly ran- 
dom seed of its own, and a different 
20 values will be produced every time 
the program is RUN. 

The value of X should be set only 
once in your program, preferably near 
the beginning. If X is between one 
and M, then X is the random seed, 
and the program results can be re- 
produced by reusing the same value. 
If X is zero or less, a random seed is 
chosen using the regular random 
number generator, and the results will 
be unpredictable. 

Random Atari gives you more than 
just the option of repeatable random 
numbers — it also gives you a higher 
degree of variability. The BASIC 
RND(0) command can produce only 
65,536 distinct values. For some pur- 
poses, this is not enough. Random 
Atari, on the other hand, produces 



2,147,483,646 distinct values. 

PROGRAM TAKE-APART 

Line 20010. The program uses three 
variables, X$, X(0), and X. These 
are three different values, in spite 
of the similarity of their names. On 
this line, X(0) is set equal to its own 
address in memory, which is the byte 
immediately following the address of 
X$, since they were DIMensioned 
consecutively. 

Line 20020. POKEs the address of 
X(0) into locations 203 and 204 ($CB 
and $CC). These are two Page Zero 
memory locations which BASIC 
doesn't use. 

Line 20060. If X (the random seed) 
is zero or negative, calculate a new 
random seed. This will be a value 
between one and 2 31 -1. 

Line 20065. If X is greater than 
2 31 -2, then set X to equal 2 31 -2. 

Line 20070. Convert the random 
seed to a four-byte binary number, 
and store it in memory locations 
205-208 ($CD— $D0). 

Line 20080. X(0) is set to the ad- 
dress of a machine language routine 
which copies a section of memory to 
a new location. 

Lines 20090-20150. The machine 
lanuage random number generator is 
copied to Page Six in memory loca- 
tions 1536-1785 ($0600-$06F9). 

Line 20160. Return from the initiali- 
zation routine. 

Lines 20200-20210. Call this rou- 
tine every time you need a random 
number. These lines call a machine 
language subroutine which calculates 
a "pseudo-random" number between 
zero and one, then places this value 
in X(0). The variable X is then as- 
signed this value. 

ASSEMBLER TAKE-APART 

Line 40. The program is compiled 
at location 25600 ($6400), but every- 
thing down to line 280 is fully 
relocatable. 

Lines 50-130. Store the value 
397,204,094 as a binary integer in 
locations 219-222. These locations are 
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3629244S3 

831058672 
278277172 
183823764 

0778525297 

734318205 

707253537 

784079512 

487783787 

181587534 

182767482 

393600546 

459522158 

8S9487435 

392536027 

1 81293813 

16222651 

235316449 



! ft£fiDY 



usually referred to as FRE. 

Lines 140-180. Move the random 
seed (or the remainder from the last 
calculation) from locations 205-208 
to locations 213-216 (FRO). 

Line 190. Multiply the random seed 
in FRO by the constant value in 
FRE. The result is stored in locations 
225-232, FR1. Note that the result of 
multiplying two four-byte values is an 
eight-byte value. 

Line 200. Calculate the remainder 
when FR1 is divided by 2 31 -1. The 
four-byte result is contained in bytes 
229-232 of FR1. 

Lines 210-250. Replace the random 
seed at locations 205-208 with the 
remainder calculated above for the 
next calculation. 

Lines 260-270. Convert the calcu- 
lated value from a binary integer to a 
floating point decimal value between 
0 and 1. The value is first doubled by 
the ROTATL routine, because the rou- 
tine BTOD assumes we have a value 
between 1 and 2 32 -l, where to this 
point we have calculated a value 
between 1 and 2 31 -1. 

This routine divides the four-byte 
binary integer at FR1 by 2 31 . The 
random number algorithm actually 
requires FR1 to be divided by 2 31 -1, 
but the difference is negligible. 

Line 280. Return to BASIC. 

Line 290. The remainder of this 
program is compiled starting at lo- 
cation 1536 ($0600) and is not 
relocatable. 

Lines 300-580. Routine to perform 
binary integer multiplication. Two 
four-byte integers at FRO and FRE are 
multiplied, and the resulting eight- 
byte value is stored in FR1. 

Lines 590-670. Add the contents of 
FRO to FR1. 

Lines 680-1010. Calculate the re- 
mainder when the value at FR1 is 
divided by 2 31 -1. A little algebra here 
saved me from writing a complicated 
binary division routine. 

Let A % B represent the remainder 
when A is divided by B (as it does in 
some versions of BASIC), and let 
X = M*2 31 +N, where N<2 31 . Then 



we can say 

X % (2 31 -1) = (M * 2 31 + N) % (2 31 -1) 
= (M + N) % (2 31 -1) 

What started as a complicated di- 
vision problem is now a simple addi- 
tion problem. The routine repeatedly 
adds the top 33 bits of FR1 to the bot- 
tom 31 bits of FR1 (M and N from 
above), until the top 33 bits are all 
zeroes. The bottom 31 bits contain the 
required remainder. 

Lines 1020-1450. Convert a four- 
byte binary fraction at FR1 to a float- 
ing point decimal number. The result 
is stored at the six-byte location start- 
ing at the byte pointed to by locations 
203 and 204. The binary fraction is 
assumed to be positive, and its 32 bits 
are assumed to represent halves, 
quarters, eighths, sixteenths, etc. 

The routine repeatedly multiplies 
the fraction by 10 until it calculates 
a value greater than 1. Every other 
time it is multiplied, the exponent of 
the floating point value is decre- 
mented, having started from an ini- 
tial value of 63- 

Once the value exceeds 1, the 



non-fractional part of the number 
becomes the first digit of the floating 
point value. The non-fractional part 
is set to zero, and the fraction is again 
multiplied by 10 to get the next 
digit of the floating point value. This 
is repeated until the five bytes of 
the floating point value each contain 
two digits. 

Lines 1460-1520. Copy four bytes 
from FR1 to FRO. 

Lines 1530-1630. Binary multipli- 
cation of FRO by 10. The result is 
stored in five bytes of FR1. Before 
executing this routine, it is assumed 
that FR1 has been set equal to FRO. 

Lines 1640-1700. Rotate five bytes 
of FR1 one bit to the left. This is 
equivalent to multiplying FR1 by two. 

REFERENCE 

'An introduction to Stochastic 
Simulation," Chicago: Society of Ac- 
tuaries, #130-033-86. A 



David Mcintosh is an actuary and pro- 
grammer for National Life of Canada. 

Listing on page 30 
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SpartaDOS X or Atari DOS-XE? 

Which is Number 1? 



BY MATTHEW RATCLIFF 




SpartaDOS X, $79.95 from 
ICD, is the ultimate disk 
operating system for 8-bit 
Atari computers, bar none! 
This 64K super cartridge packs power 
galore. SpartaDOS X even works with 
the old Atari 800 and will support that 
computer's Axlon RAM upgrades. 

SpartaDOS X is a "piggyback" car- 
tridge, letting you insert a second 
cartridge on top. The SpartaDOS X 
cartridge can take complete control 
of your system, allowing you to ac- 
cess the cartridge on top, such as 
MAC/65, or run built-in BASIC while 
the top cartridge is still in place. 

SpartaDOS X is a command line 
DOS, just like its disk-based predeces- 
sor. For example, you type DIR Dl: * * 
to see a directory of all the files on 
drive number one, instead of select- 
ing a menu option and being 
prompted for more information. 
Power users can really fly through 
their system maintenance once they 
learn the basic command structure. 

SpartaDOS X does have a built-in 
MENU, which makes it easy for 
novices to control all the power of 
this DOS. The MENU does not have 
the familiar look of Atari DOS, but 
with a little practice, it is not difficult 
to master. 

The most fascinating feature of 
SpartaDOS X is that it uses the same 



SPARTADOS X 




commands as MS-DOS, the disk oper- 
ating system of IBM PCs. Anyone ex- 
perienced with a PC or clone will be 
familiar with the SpartaDOS X com- 
mands like CHDIR, DEL, and others. 
If you don't know how to use an IBM 
PC, SpartaDOS X will help you learn. 

For those who are attached to the 
older disk-based SpartaDOS, Spar- 
taDOS X retains many of the old com- 
mands as "aliases" of the new MS- 
DOS commands. Some relearning 
will be required, but not much. For 
example, you used to type BASIC ON 
or BASIC OFF to control the internal 
XL/XE BASIC. Now you simply type 
BASIC to run the language, which au- 
tomatically turns off when you enter 



SpartaDOS X. 

The disk format utility XINIT is no 
longer necessary. From virtually any 
program making a system call to for- 
mat a disk (XIO #254), the FORMAT 
command brings up a SpartaDOS X 
menu on the screen. For example, 
when I selected FORMAT from the 
AtariWriter main menu, the Spar- 
taDOS X format menu popped up in- 
stantly. It flawlessly formatted a dou- 
ble sided, double density, high speed 
I/O, 360K disk on my XF551, and 
then returned gracefully to 
AtariWriter with my edit buffer 
unharmed. 

From the format menu of Spar- 
taDOS X, you may select the drive 
number, format type (including Atari 
DOS or SpartaDOS), and high speed 
I/O including ICD's UltraSpeed, Indus 
high speed, and even the high speed 
mode of the new Atari XF551 disk 
drive. Since SpartaDOS X is in a car- 
tridge, this formatter will not write 
DOS to disk. 

NEW COMMANDS 

ARC is a new command in Spar- 
taDOS X, an extremely fast and 
powerful version of the popular file 
compression utility. ARC will take one 
or more files at your request and com- 
press them into one ARC file, by as 
much as 50% or more. 
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Using the MS-DOS command struc- 
ture, SpartaDOS X adds new device 
names to your Atari. From SpartaDOS 
X you refer to the printer as PRN: 
and the keyboard as CON:. Spar- 
taDOS X will not recognize the P: and 
E: devices you are accustomed to, al- 
though they are still accessible from 
BASIC and other programs. 

When you boot with SpartaDOS X, 
the program looks for a file called 
CONFIG.SYS. This allows you to 
hook in custom drivers, making max- 
imum use of your computer configu- 
ration. You can tell SpartaDOS X 
where your extra RAM, if any, can be 
found, and how much to use for disk 
buffers. To enable the high speed I/O 
driver for Indus disk drives, for exam- 
ple, your CONFIG.SYS text command 
file will specify DEVICE INDUS.SYS/. 

The DEVICE AIARIDOS command 
must be included in CONFIG.SYS to 
have full access to disks formatted 
with Atari DOS or its derivatives, such 




as MyDOS. Even so, I have found that 
SpartaDOS X has a particular dislike 
for DOS 2.5 disks formatted in en- 
hanced density, and refuses to access 
the extended sectors. 

You will always want to enable 
RAMDISK.SYS, since SpartaDOS X 



requires a RAMdisk to save the work- 
ing memory of BASIC or other car- 
tridges. SpartaDOS X saves your 
working RAM in a manner similar to 
the MEM.SAV feature of Atari DOS. If 
SpartaDOS X cannot preserve your 
working RAM when you enter the 



ASK THE RAT 

Matthew Ratcliff's ANTIC ONLINE technical Q&A column 



A long with this issue's 
in-depth Matthew 
J ^ Ratcliff reviews of 
Mmmk SpartaDOS X and 

# m Atari DOS-XE, we 
thought it would be a good idea 
to show you a sample of Compu- 
Serve's ANTIC ONLINE "Ask The 
Rat." The technical question an- 
swering column is written by 
Ratcliff under his online handle 
"MAT* RAT." 

Additional excerpts from this 
valuable column will appear regu- 
larly in future Antic issues. But for 
a timelier look at the newest 
MAT * RAT answers, or to ask your 
own technical questions, just type 
GO ANTIC when you log onto the 
CompuServe online information 




service. There is no extra charge 
for using any part of the ANTIC 
ONLINE electronic magazine.— 
ANTIC ED 

RANDOM ML 

Greg Maguire— I'm trying to do 



some random disk access from ML. 
How can I NOTE & POINT to a 
sector & byte using the CIO? 

MAT* RAT— Use XIO commands. 
Do you have MAC/65? In the 
macro library presented in the back 
of the manual, an XIO macro is 
presented. It's virtually identical to 
the XIO command of BASIC and 
will work the same. Write a simple 
NOTE and POINT program in 
Atari BASIC, get it working, and 
then go to MAC/65's MACROs. 
You can do all that NOTE and 
POINT stuff with XIO commands: 

100 NOTE #1,SECT,BYTE 

is exactly the same as: 

100 XIO 38,#1,SEC, BYTE, 
"D1:":REM (The string doesn't 
matter). 

and. . . 

110 POINT #1,SEC,BYTE 
is the same as: 

110 XIO 37,#1,SEC,BYTE, 
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DOS command, you are warned of 
the condition and given the oppor- 
tunity to abort and save your file. 

It may take a while to become 
accustomed to all these new drivers, 
but the default driver, when no CON- 
FIG.SYS file is found, seems to work 
well. 

PROTECT and UNPROTECT have 
been supplanted with the ATR com- 
mand. Your file attributes can be set 
(+) and cleared (-) with this com- 
mand, including A for archive, H for 
hidden, and P for protected. ATR + 
P is used to protect files, and -P will 
unprotect them. 

CHDIR is the change directory 
command, and SpartaDOS X still fully 
supports the old CWD, as well as the 
common MS-DOS abbreviation of 
CD. Subdirectory path names can be 
separated by the old greater-than sym- 
bol (>) or with the MS-DOS back-slash 
character (\).MKDIR (also MD) and 
RMDIR (also RD) make and remove 



directories, just like the old CREDIR 
and DELDIR, which are still sup- 
ported. 

SpartaDOS X also includes the 
PATH command, offered previously 
on the SpartaDOS Toolkit disk. The 
PATH command allows you to specify 
the default search directory for Spar- 
taDOS X. For example, you can place 
all your external command files (such 
as FLASHBAK.COM) in a DOS sub- 
directory on your boot disk and 
specify PATH Dl:\OS in your 
AUTOEXEC.BAT file. Then, any time 
you specify a command that is not 
built into SpartaDOS X, the program 
automatically searches this path for 
the file. 

HARD DISK HELP 

Multiple search paths are allowed. 
SpartaDOS X also incorporates the 
Toolkit command PROMPT, which 
can set the prompt to display the cur- 
rent time, date and directory path if 



you choose, instead of the simple 
"Dl:". This is an extremely valuable 
feature for hard disk users who have 
to keep track of a lot of subdirectories. 

SpartaDOS X supports PEEK and 
POKE commands. They work exactly 
like their BASIC counterparts. This 
comes in handy for setting certain 
defaults, such as screen colors or 
keyboard repeat rate, from an 
AUTOEXEC.BAT file, for example. 

The UNERASE utility from the 
Toolkit is built into SpartaDOS X. 
This is a powerful, immensely useful 
command. Whenever you acciden- 
tally erase the wrong file, simply 
UNERASE it. 

The CHTD command allows you 
to change the date and time stamps 
of files. This comes in handy when 
setting the time stamps of files copied 
from Atari DOS 2.0 and 2.5 disks, 
which don't have this feature. 

The CHVOL command allows you 
to change the volume name of a Spar- 



"D1:":REM (The string doesn't 
matter). 

SERIAL COMMAND 

Andy Grey— How long after the 
CMD line goes low is a command 
frame sent down the serial line? 
How long after the command 
frame is sent does the computer ex- 
pect to get an ACK or NACK? 

MAT * RAT— The SIO bus operates 
at 19,200 baud. When the PRINT 
LINE function is called for the SIO 
handler, first a Device I.D. of $40 
is sent, followed by a command 
byte of $57. 

Next is AUX1, which is ignored 
(your printer could use this as spe- 
cial sub commands or something); 
followed by AUX2 which is a $4E 
for normal print or $53 for side- 
ways (I doubt the latter is im- 
plemented), followed by a check- 
sum of the previous 4 bytes. The 



computer then sends the data 
frame of 40 or 30 bytes (depend- 
ing on normal, or sideways com- 
mand respectively) followed by a 
checksum byte. 

UNERASING HELP 

Michael Rothstein— There have 
been occasions where for some 
reason, while UNERASING.COM 
a group of files, the CHKDSK 
showed something like: Total Bytes: 
200,000, bytes remaining: 
300,000. I know math and there 
is something wrong. I had to XINIT 
it (disk 3) and I got something like 
184,000 bytes on the RAMdisk. 
But it was about 8K less than the 
actual size of the MIO configured 
RAMdisk. I would rather some- 
how XINIT it to bring it back 
to its hefty 192K. From what I have 
experienced, the only way to do 
that is by reformatting the entire 
MIO. Can it be done?? 



MAT * RAT— No, Mike. There is no 
way to reformat the MIO RAMdisk 
without "losing" space. On 
powerup or when the MIO is 
reconfigured from your RESET- 
SELECT menu, all the MIO RAM- 
disks are "formatted" to their 
full size. 

There is no utility I'm aware of 
that will "figure out" how many 
Kbytes a RAMdisk format should 
return for the MIO. (How often do 
you FORMAT RAMdisks for Atari 
DOS 2.5?) The reason you lose 
Kbytes on the MIO RAMdisk for- 
mat is that it is configured to be log- 
ically identical to a floppy disk, 
making it easy to make a RAMdisk 
mirror copy of a floppy. 

To restore the RAMdisk to its full 
size, power cycle MIO (after back- 
ing up the files, of course) or recon- 
figure it from the RESET-SELECT 
menu (which also makes the MIO 
"forget" what it had in RAM). A 
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taDOS format disk. The volume name 
is generally specified at format time, 
but CHVOL makes it a snap to update. 
The CHKDSK command is a quick 
way to find out how much free disk 
space you have on a specific drive. 

My favorite utility from the Spar- 
taDOS Toolkit is WHEREIS.COM. A 
slightly different version has been im- 
plemented in SpartaDOS X, called 
FIND. It will locate any file or files 
matching your specification, on any 
disk in any subdirectory in your sys- 
tem. It can be a lifesaver when you 
lose track of important files in a maze 
of directories. 

ATARI 800 SUPPORT 

The SpartaDOS X cartridge works 
with the Atari 800, but if you "piggy- 
back" another cartridge on top of it, 
you won't be able to close the 800's 
cartridge slot door and engage its 
safety switch. 

To engage the safety switch while 
the door is open, ICD recommends 
you carefully squeeze a toothpick or 
plastic pen cap into the safety switch 
slot, located about one inch above the 
[BREAK] key. 

BIGGEST WORKSPACE 

SpartaDOS X has the lowest 
LOMEM of any DOS to date, provid- 
ing more workspace for BASIC and 



assembly language programs. Sparta- 
DOS X completely smashes the limit 
of 126 files per directory, allowing 
over 1,400 files in a single directory! 

The most frustrating "feature" of 
the disk based SpartaDOS was the key 
buffer, which defaults to ON. This 
type-ahead buffer was great — when it 
was compatible with your application 
program. It was not compatible with 
MAC/65, for example, and could com- 
pletely lock up your system under cer- 
tain circumstances. SpartaDOS X also 
has the KEY command built in, but 
it mercifully defaults to OFF. 

MEM is a handy command for 
checking total free memory in your 
computer system. It even displays free 
banks of RAM in extended memory 
Ataris. 

Initially, SpartaDOS X was not 
compatible with the Atari XEP80's 
handler. I talked to ICD, and they 
responded with a new driver, 
XEP80.SYS, within 3 days! This driver 
is currently available on CompuServe, 
and will be included in future copies 
of SpartaDOS X. 

This amazing little utility allows 
one program to use both 40 column 
and 80 column displays. All S: output 
goes to the 40 column display. E: out- 
put is routed to the 80 column dis- 
play. This allows me to run Express 
3.0, Keith Ledbetter's modem pro- 



gram, in 80 columns. All the menus 
are displayed in the standard 40 
columns, but the terminal mode gets 
the full 80 columns on the XEP80's 
display. 

At this time, SpartaDOS X is still not 
compatible with TurboWord, the 80 
column word processor from 
Micromiser Software, but ICD is 
working with Micromiser to solve this 
problem. The preliminary manual I 
received with SpartaDOS X was a 
complete cut-and-dried technical 
reference. The new manual is more 
than double the size of the original, 
providing plenty of information and 
tutorials for beginners. 

SpartaDOS X is the most advanced 
software and hardware product 
released for the 8-bit Atari since ICD's 
Multi I/O interface. It is so large and 
powerful, I just can't cover all its 
features in the span of a single review. 
I have found it to be powerful, 
bug-free and certainly worth the 
long wait! 

The development of SpartaDOS X 
was a major accomplishment, and my 
congratulations go to Tom Harker and 
the entire ICD staff. SpartaDOS X is 
the super cartridge no experienced 
Atarian should be without. 

$79.95. ICD Inc., 1220 Rock Street, Rock- 
ford, IL 61101.(815) 968-2228. 



DOS-XE 



Atari's DOS-XE ($10) is fi- 
nally here, about a year 
after their new XF5 5 1 disk 
drive was released. Now 
Atari has a disk operating system that 
fully supports their new drive, pro- 
ducing double-sided, double-density 
disks with a total of 360K per disk. 

Some of you may recall that Bill 
Wilkinson of Optimized Systems Soft- 
ware was developing a new A-DOS 
for Atari. Well, this is it, renamed 
DOS-XE. 



DOS-XE has many new features in- 
cluding multi-density support, sub- 
directories, date stamping, and even 
high speed I/O support for the XF551. 
It will work with any XL or XE com- 
puter with an 810, 1050 or XF551 
disk drive. 

DOS-XE is not compatible with 
Atari DOS 2.0, nor is it compatible 
with DOS 2.5 single or enhanced 
density. This was the major flaw in 
Atari DOS 3 0 which resulted in its 
quick and painful death. DOS-XE tries 



to bridge this gap with support for 
reading and writing DOS 2 or 2 . 5 file 
formats, without the need for running 
separate "conversion utilities". You 
simply choose to Allow DOS 2.X 
access from the appropriate menu. 

DOS-XE is both a menu driven and 
command line DOS. Using the menus, 
just type the first letter of any com- 
mand displayed in the current menu. 
Then, simply follow all the prompts 
until the command is completed. 

If you enter all the information on 
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3ROTECT FILES 
TmPROTECT FILES 
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tfilEH A FILE 



torkimg directory 
Jem directory 
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lOPY FILES 

Sppend to a file 
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SELECT ITEM OR 3SBAPE FOR MAIN MENU: 



a single line, separating each parame- 
ter with a single space, DOS-XE can 
decipher the entire command line 
and perform the functions without 
requesting additional input. To look 
at a [F]iles listing from any of the sub- 
menus, you can enter a command line 
as follows: 

F D2:*.BAS E: 

This command will request DOS- 
XE to list all the .BAS files from drive 
2 to the screen, the E: device. You can 
just as easily enter the P: parameter 
to send a file list to the printer. 

Because of its sophistication, DOS- 
XE is broken into three sub-menus, all 
controlled from a main menu. From 
the main menu you can go to the File 
Access, Machine Language Access, or 
System Function menus. The user 
may also [E]xit to BASIC or to an 
external cartridge if installed. 

From the System Functions sub- 
menu, you may elect to [Ajllow DOS 
2.X access. Once enabled, DOS 2.0 
or DOS 2.5 disks are accessed as Al: 
instead of Dl:. The letter A tells 
DOS-XE to use the special Atari DOS 
2 handler. 

Atari guarantees only that DOS-XE 
will read DOS 2.0 or 2.5 formats, not 
write them. I find this a serious limi- 
tation. However, a SpartaDOS/DOS- 
XE conversion utility is in the works. 
ICD is also developing a time stamp 
driver for DOS-XE which will support 
the R-Time 8 clock cartridge. 

DOS-XE appears to do a good job 
of bridging the gap from the old to 
the new Atari DOS format. I found 
that the [C]opy files command in the 
File Access menu never works when 
copying to Atari DOS 2 or 2.5 disks, 



even when the special handler is 
enabled. For example, the following 
command: 

C Dl:WELCOME.BAS A1:WEL- 
COME.BAS tells DOS-XE to copy the 
file WELCOME. BAS from the DOS-XE 
format disk in drive 1 to the Atari DOS 
2 or 2.5 format disk in drive 2. How- 
ever, this always results in an error 
168, "command invalid." It is interest- 
ing to note that when copying from 
a DOS 2.0 or 2.5 disk to a DOS-XE 
disk (e.g. from A2:FILE to D1:FILE), 
DOS-XE can handle the transfer with 
no problems. 

Fortunately, you can save to and 
load from an Atari DOS 2.0 or 2.5 disk 
from BASIC, MAC/65, and other lan- 
guage cartridges. Once the Atari DOS 
2 handler is enabled, it remains in 
effect until you reboot your computer. 

You can return control to your car- 
tridge and load from or save to a DOS 
2 or 2.5 disk by using the letter A to 
indicate a DOS 2 or 2.5 drive. For 
example, if drive 2 has an Atari DOS 
2.0 disk in it, you would SAVE your 
file to A2:FILENAME. 

Under the file access menu, you 
can [P]rotect or [U]nprotect, [E]rase, 
[R]ename, [V]iew (type text files to the 
screen), [A]ppend to, and [C]opy files. 
The really new features are the 
[W]orking, [N]ew, and [D]elete direc- 
tory options, used to manage your 
sub-directories. 

SUB-DIRECTORY SERVICES 

A sub-directory can be thought of 
as a disk within a disk, with its own, 
separate directory listing. 

Sub-directories let you organize 
large numbers of files in a logical man- 
ner. With a full 360K on your floppy 
disks, you may find this feature quite 
helpful indeed. DOS-XE always dis- 
plays the current sub-directory at the 
top of the current menu. 

From the File Access menu you may 
also [initialize disks. If you choose 
this option you will be prompted for 
the disk drive number, then for a 
device type— AT810, AT1050, XF551 
or SSDD. 



The AT810 format is simply single 
sided, single density, or about 88K per 
diskette. The AT1050 is the Atari 1050 
enhanced-density format, or about 
12.08K per disk. The XF551 uses a 
' 'genuine" double-sided, double- 
density, full 360K disk format. 

The SSDD stands for single sided, 
double density. This lets you create a 
single sided floppy 180K in size, 
which can also be booted, read, and 
written in a 1050 disk drive equipped 
with ICD's US Doubler, for example. 

A command line is allowed here, as 
it is anywhere else in DOS-XE. For 
example: 

I 1 XF551 tells DOS-XE to format 
the disk in drive 1 in XF551 (360K) 
format. You are always prompted 
to press [START] to continue or 
[SELECT] to abort, to verify your 
inputs first. 

ML SUPPORT 

The Machine Language Access 
menu lets you manage your binary 
files, such as data files, or machine 
language utilities and games. From 
this menu you may [R]un or [L]oad 
a binary file and [S]ave or [A]ppend 
memory to a file. 

This menu is handy for patching 
files in memory with the [D]isplay (a 
nice memory dump in both hex- 
adecimal and ASCII) and [C]hange 
memory commands. These can be 
thought of as sophisticated PEEK and 
POKE commands. 

Once you have patched a file in 
memory you can save it, or test run 
it with the [G]o-to command. 

The System Function menu lets you 
[R]un a batch file. A batch file is an 
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ASCII file filled with commands that 
you would normally type-in. They 
can come in handy assisting you with 
a lot of the 4 'housekeeping" chores of 
managing your disks. There is not 
much information on batch files in 
the DOS-XE manual, so it is not yet 
clear just how sophisticated they 
might be. 

DOS-XE requires an XL or XE com- 
puter with at least 64K of RAM to run. 
This DOS is so large that it requires 
some of the RAM * 'hidden" under the 
operating system to work. DOS-XE 
provides 32,274 bytes of program- 
ming space in Atari BASIC Revision C, 
exactly the same as Atari DOS 2.0. 

When the Atari DOS 2 or 2.5 sup- 
port is enabled in DOS-XE, your 
BASIC programming space drops to 
27,264. Atari DOS 2.0 and 2.5 com- 
patibility comes at the high price of 
5,010 bytes of program space. 

The advantage to using the extra 
system memory is that DOS-XE pops 
up instantly when you enter the DOS 
command from BASIC or from an- 
other cartridge. 

The bad news is that Atari 400 and 
800 owners have just been served no- 
tice that their machines are no longer 
being supported by Atari. Their only 
options are ICD's SpartaDOS version 
1.1 and the SpartaDOS X cartridge 
reviewed in this issue, two disk oper- 
ating systems which take advantage of 
the XF551's capabilities, while provid- 
ing 400/800 compatibility 

MORE FLEXIBILITY 

The manual for DOS-XE (by 
Charles Cherry of Antic Software— 
ANTIC ED) is very well done. It starts 
with the basics, especially for begin- 
ners who are new to disk drives and 
disk operating systems. All the DOS 
commands and menus are detailed 
with plenty of examples. The disk- 
related BASIC commands, including 
access to advanced features through 
XIO (extended input and output) 
commands are explained as well. 
Sample BASIC and Assembly language 
programs are presented. 



Atari DOS 2.0 and 2.5 were not 
very flexible. If you wanted to change 
the number of disk drives supported 
by either DOS, you had to remember 
some special POKE commands to 
enter from BASIC and then write 
DOS to a new disk. DOS-XE comes 
with SETUP.COM, a utility which 
makes it simple to customize it to your 
particular preferences, including 
RAMdisk setup. 

Except for the one glitch in copy- 
ing to DOS 2 or 2.5 disks, I found 
DOS-XE works quite well. Its incom- 
patibility with DOS 2.0 is an unavoid- 
able price to pay for the increased 
power of sub-directories and date 
stamping. (Although they should have 
included a clock driver, allowing time 
stamping as well.) 

Unfortunately, DOS-XE uses a new 
file format totally alien to SpartaDOS. 
So, getting from here to there will still 
require the lowest common denomi- 
nator of Atari DOS 2.0 or 2.5 in sin- 
gle density format. Because of the 
new file format, DOS-XE will not be 
compatible with the current crop of 
bulletin board systems or most data- 
base programs, which require random 
access files. 

I feel that DOS-XE will survive, un- 
like DOS 3.0, because it does a good 
job of supporting Atari DOS 2.0 and 
2.5 when necessary. However, it isn't 
as sophisticated as SpartaDOS, which 
can automatically detect any DOS for- 
mat it supports. 

In conclusion, SpartaDOS is the 
power user's disk operating system. 
DOS-XE, on the other hand, is much 
easer to use. Its menu-driven user in- 
terface helps novices learn to use it 
quickly and easily, while the com- 
mand line controls let power users fly 
through their DOS operations as well. 
DOS-XE will support up to 16 mega- 
bytes on a single disk, which means 
that DOS-XE could support a hard 
drive in the future. A 

$10. XL/XE with 810, 1050, or XF551 disk 
drive. Atari Corp., 1196 Borregas Avenue, 
Sunnyvale, CA 94806. (408) 745-2000. 
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TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [ZJ, press the [3] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [ Q| ] or [ A ] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0J. 
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TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST "D:FILENAME",0,31999, then [RETURN], then NEW, then ENTER "D:FILENAME", 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



UB 

un 

HS 

BN 

YC 

EM 
HS 

XH 



TH 
MF 



32068 REM TYPO II BY ANDY BARTON 

32810 REM UER . 1.8 FOR ANTIC MAGAZINE 

32828 CLR :DIM LINES C128> : CLOSE t*2'CLQ 
SE »3 

32030 OPEN »2 , 4 , 8 , "E" : OPEN *3# 5*P*" E" 

32040 ? "«" : POSITION 11,1:? ••nHfidfiMNHB" 

32050 TRAP 32040 : POSITION 2,3*? "Type 
in a progran line" 

32060 POSITION 1,4:? M " * INPUT «2;LINE 
$:IF LINE$="" THEN POSITION 2,4:LI5T B 
:G0T0 32060 

32070 IF LINES cl, l>=»*» THEN B = UAL cLIN 
E$C2,LENCLINE$>:>> : POSITION 2,4:LI5T B: 
GOTO 32060 

32080 POSITION 2,10:? "C0NT" 

32090 B = UAL CLINESJ : POSITION 1,3:? » ; 



NY 
CN 
ET 

CE 
QR 



UU 

UJ 
JU 
EH 
BH 
HB 
IE 

UG 



32100 POKE 842,13:5T0P 
32110 POKE 842,12 

32120 ? "*••: POSITION 11,1:? ••■aQQUlHUHB 
"'POSITION 2,15:LI5T B 
32130 C=0:ANS=C 

32140 POSITION 2,16:INPUT »3;LINE$:IF 
LINE$="" THEN ? "LINE ";B;" DELETED" : G 
0T0 32050 

32150 FOR D=l TO LEN CLINESi : C=C+1 : ANS= 

AN5+ CC*A5C cLINE$cD,D>*> :NEXT D 

32160 C0DE=INT cAN5'676> 

32170 C0DE=ANS- CC0DE*676> 

32188 HC0DE=INT CC0DE'26> 

32198 LC0DE=C0DE- cHC0DE*26> +65 

32288 HC0DE=HC0DE+65 

32218 POSITION 8,16:? CHR5 cHCODE* ; CHRS 
CLC0DE> 

32228 POSITION 2,13:? "If CODE does no 
t natch press KOiuHiMZJB and edit line a 
bove.":G0T0 32858 
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DESPERATE ACTION! COMMUTE THROUGH THE TWILIGHT ZONE 



DEMON RACER 



Article on page 6 



LISTING 1 



i DEMON RACER 1.8 

; BY JON PETERSON 

;cc>1968, ANTIC PUBLISHING 

BYTE CHBASE1,RAM,PMBASE,CHBASE2, 

SPEED=c63 , TIMER=ci8J , LAP=C13 , 
GAME= c8 3 , 0 = 28, SEC= C0j , MIN=c8i , 
SECH=C93 , SECL=C93 , MINH=c93 , MINL - c9a , C 
CH=cu , B, J0Y,HP0S=c953 , CARS=c33 , 
USYNC=$D48A, C0LBK=*D61A, 
CONSOLE =53279, SEC Ll= t9 a , SECH1= t9i , 
MINH1= C93 , MINLl=c93 , SECl=c993 , 
MIN1= C9 9 3 , Z,Cl=c8 3 , Dl= C83 

CARD CH5ET1 , X,PM,CH5ET2,DL,5CR, 

T0P,SCRT,SCRB,TIhER2=c38883 , 
TIMER3= C18883 

BYTE ARRAY 
CHR5 = 

C169 169 165 165 149 149 85 85 
74 74 82 82 84 84 85 85 
85 85 149 149 165 165 169 169 
85 85 84 84 82 82 74 74 
85 85 85 85 85 85 85 85 
178 178 178 178 178 178 178 178 
254 128 128 248 128 128 128 8 
138 138 138 254 138 138 138 8 
254 128 128 142 138 138 254 63, 
PMDATA=E24 189 255 165 36 36 165 

255 165 24 68 126 68 68 68 
68 126 363, 
CRASH=C85 178 85 178 85 178 85 178 85 

178 85 178 85 178 85 178 65 1783, 
P=c8 95 138 1683, 
SPD=C8 3 7 16 28 38 1863 , 
ST=ci4 46 48 52 55 58 623, 
UIND0U= 

C8 8 8 8 36 37 45 47 46 8 8 58 33 35 
37 58 8 8 6 8 8 8 34 57 8 8 42 47 46 
8 48 37 52 37 58 51 47 46 8 8 8 52 

41 45 37 6 6 6 8 8 8 8 8 35 33 58 51 26 
8 8 3 , 
UIND0H1= 

C8 8 8 6 36 37 45 47 46 8 8 58 33 35 
37 58 8 6 8 8 8 8 35 47 53 58 51 37 
8 35 47 45 48 44 37 52 37 36 8 6 8 8 
8 8 48 58 37 51 51 8 51 52 33 56 52 
8 8 8 8 83 

INT Y=C153 

; BEGIN IT 

J 

PROC F0NT1O 

c8 8888888 

171 171 171 171 171 171 171 171 

171 171 172 172 176 176 192 192 

178 178 178 178 171 172 176 192 

171 172 176 192 8 8 8 8 

234 58 14 3 8 6 8 8 

178 178 178 178 234 58 14 3 

234 234 58 58 14 14 3 3 

234 234 234 234 234 234 234 234 

3 3 14 14 58 58 234 234 

3 14 58 234 178 178 178 178 

8 8 6 8 3 14 58 234 

8 8 8 8 192 176 172 171 

192 192 176 176 172 172 171 171 

8 8 6 8 8 24 24 8 

192 176 172 171 178 178 178 178 

254 134 198 198 198 194 254 8 

24 128 128 88 24 26 254 6 

254 134 6 254 192 194 254 8 

254 138 2 38 2 138 254 6 

198 198 198 254 6 6 6 8 

254 194 192 254 6 134 254 6 

254 194 192 254 194 194 254 8 

254 6 6 6 6 6 6 8 

254 138 138 124 138 138 254 8 

254 134 134 254 6 134 254 8 



8 24 24 8 24 24 8 8 
178 178 178 176 178 178 178 178 
255 255 255 255 255 255 255 255 
255 255 255 255 255 255 255 255 
95 95 245 245 95 95 245 245 
8 68 182 12 24 8 24 8 
=C53, e 8 255 85 85 255 8 8 

124 68 198 254 138 138 138 8 
252 134 134 252 134 134 252 8 
254 138 128 128 128 138 254 8 
252 134 138 136 138 134 252 8 
254 138 128 248 128 138 254 8 
8 8 6 178 8 6 8 6 
8 8 16 68 16 8 8 8 
8 182 182 126 182 182 182 8 
264 146 16 16 16 146 254 8 
15 2 2 2 138 138 254 8 
8 182 188 128 128 188 182 8 
128 128 128 128 138 138 254 8 
138 198 238 186 146 138 138 8 
194 226 178 154 142 134 138 8 
254 138 138 136 138 138 254 8 
254 138 138 254 128 128 128 8 
8 68 182 182 182 188 54 6 
252 134 134 252 152 148 134 8 
254 128 128 254 2 2 254 8 
254 146 16 16 16 16 56 8 
138 138 138 138 138 138 254 8 
8 182 182 182 182 68 24 8 
8 99 99 187 127 119 99 8 
88888888 
198 188 56 16 16 16 56 8 
8 126 12 24 48 96 126 8 
8 38 24 24 24 24 38 8 
8 64 96 48 24 12 6 8 
8 128 24 24 24 24 128 8 
8 8 28 54 99 8 6 8 
8 8 8 8 8 6 255 63 
RETURN 

PROC F0NT2O 

CO 8886888 

86868888 

8 6 24 24 24 24 8 8 

88868688 

8 8 255 85 85 255 8 83 
RETURN 
I 

PROC TITLE ci 
GRAPHICS €83 P0KEC559,83 
CHBASE1=PEEKC1863 -8 
CHSET1=CHBASE1*256 
M0UEBL0CKCCH5ET1, F0NT1, 512 3 
M0UEBL0CKCCHSET1+24,CHR5, 723 
P0KEC756, CHBASE13 
POKE €752,13 

SETC0L0RC2, 8, 33 SETCOLOR €4 , 8 , 33 

SETC0L0RC1,8,153 

;PRINT OUT MESSAGE 

P0SITI0NC6,83 PRINT f" TIME ••> 
PRINTB CMINH3 PRINTS CMINL3 

PRINTc > PRINTB CSECH3 PRINTB CSECL3 

PRINT C" BEST TIME "3 

PRINTB CMINH13 PRINTB CMINL13 

PRINT c 3 PRINTB CSECH13 PRINTBE CSECL13 

P0KEC82,53 PRINTEC" "1 
PRINTE c"ccccccccccccccccccccccc 
PRINTE C" c • • * Ctt • & C ' *tt • ctt • * c • * c • €• 
PRINTE C" C • C • C • * C C •««• €• C ■ C • K* • €• 
PRINTE €••€• €• C • A C C ' ((' C ' C • C' cx • c 

PRINTE c" c • ■ & tY. • * c • c c • ex. • & c • c c • c 
PRINT Ec "ccccccccccccccccccccccc 
P0KEC82,143 PRINTEC- PRINTE c* 
PRINTE ccccccccccccccccccccc c"> 
PRINTE €••€• ' % c*t * $ ctt * $ ctt 'Ac* •*€••* 
PRINTE c M c • c c c electee c cj 
PRINTE ec '»c • • ('$((•&((• «$c"i 
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PRINTE c c&cx (A ex c>s •AOS • ♦ c&cx c"i 
PRINTE c-ccccccccccccccccccccc-j 
PRINTE €•• "3 

PRINTE C M BY JON PETERSON"! 

P0KEC82.71 PRINTEc- "3 PRINTE €•• "3 
PRINTE c CC3 1988 ANTIC PUBLI5*IN+"3 
PRINTE c-PRESS START OR 3IRE TO PLflY"> 
POSITION C12, 233 

print c**QDQH[!][aaamQ]HQmmamQ[M]"> 

POKE <559, 343 MIN = B SEC=8 GAME=8 
DO 

UNTIL C0NS0LE=6 OR STRIGc6>=8 OD 
RETORN 

PROC SETRAMo 

RAM=PEEK€1863 -32 

CH5ET1=RAM*256 

CHB A5E1=RAM 

PMB A5E=RAM+4 

PM=PMBASE*256 

CHB A5E2=RAM+8 

CHSET2=CHBASE2*256 

DL= cRAM + 12**256 

SCR= cRAM+l63*256 

5CRT=5CR+88 

SCRB=SCR+3688 

T0P=€RAM~23*256 

POKE €186, RAM23 

GRAPHICS C8> POKE €559, 83 

ZEROCTOP, 87843 

P0KEc82,83 

RETURN 

PROC DLIO 

c*48 *8A *48 *98 *483 

WSYNC=1 

COLBK=C 

c$68 *A8 *68 *AA *68 *483 
RETURN 

PROC DLISTO 
FOR X=8 TO 2 DO 

POKE cDL+X, 1123 OD 
POKE €DL+3, 713 
P0KECCDL+4, WINDOW* 
POKE cDL + 6 , 73 
P0KE€DL+7,73 
P0KE€DL+8, 16+1283 
P0KE€DL+9,1813 
POKECcDL+18, SCR3 
FOR X=12 TO 28 DO 

POKE CDL+X, 373 OD 
POKEcDL+21,53 
POKE CDL+22 # 65 J 
P0KECcDL+23,DL3 
P0KEC€568,DL3 
P0KECC512, DLIJ 
POKE €54286,1923 
RETURN 
I 

PROC PMSETUPci 

POKE €54279, PMBASE3 POKE €53277, 33 
POKE €53248, 83 POKE €53249 , 83 
POKE €53256, 83 POKE €53257 , 83 
POKE €784, 83 POKE €785, 153 
M0UEBL0CK€Pri+512 + 97, PMDATA, 93 
M0UEBL0CK€PM+648+97,PMDATA+9, 93 
POKE €623, 13 
RETURN 

PROC SETL0ADC3 
HOUEBLOCKCCHSET1, F0NT1,5123 
n0UEBL0CK€CHSET2,F0NTl,5123 
M0UEBL0CKCCHSET2 + €28*83 , F0NT2, 83 
M0UEBL0CKCCHSET2+ C32*»83 , F0NT2+8,83 
M0UEBL0CKCCHSET2+ €38*83 , F0NT2+16, 83 
MQUEBL0CKCCHSET2+ €39*83 , F0NT2+24, 83 
M0UEBL0CKCCHSET2-*- €56*83 , F0NT2+32, 83 
CH=1 P0KE€756,CHBA5E13 
RETURN 

INCLUDE "D J SCREEN • ACT" 
PROC SCRL0ADC3 

MOUEBLOCKcSCR+l, SCREEND AT A , 48883 
RETURN 

; 

PROC TOGGLESET €3 

TinER2==+l 

IF TIMER2>588 THEN 
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TIMER2=8 

IF CH=2 THEN 

POKE €756, CHBA5E13 CH = 1 
ELSE IF CH=1 THEN 

POKE C756,CHBASE23 CH = 2 

FI 
FI 
FI 

RETURN 

; 

PROC SCROLL €3 

IF SPD€SPEED3=188 THEN RETURN FI 
TIMER==-1 

IF TIMER < > 8 THEN RETURN FI 

Y = = -l 

IF Y>-1 THEN 

POKE €54277, Y3 TIMER=SPD C5PEED3 
RETURN FI 

Y = 15 

SCR==-48 POKE €54277, 153 

P0KECCDL+18,SCR3 

TIMER=SPD€SPEED3 

IF LAP=3 AND cSCR-2883 < =5CRT THEN 

GAME=2 FI 
RETURN 

; 

PROC LAPS€> 

IF SCR=SCRT THEN 

LAP==+1 

SCR=SCRB FI 
IF LAP<>4 THEN 

POKEC cDL+18, SCR3 FI 
; IF LAP=4 THEN GAME=1 FI 
RETURN 
I 

PROC TII1EC3 
IF Q>=68 THEN 

SEC==+1 0==-68 FI 
IF SEC>=68 THEN 

MIN==+1 SEC=8 FI 
5ECH = SEC18 
SECL=SEC MOD 18 

niNH=riiN'ie 

HINL=MIN MOD 18 
WINDOW €463 =MINH+16 
WINDOW €473 =MINL+16 
WIND0W€483 =26 
WINDOW €493 =SECH+16 
WINDOW €583 =5ECL +16 
WINDOW €583 =16+CARS 
RETURN 
I 

PROC MOUPL €3 

J0Y=STICK€83 SOUND C8, ST C5PEED3 ,6,63 
TIMER3==+1 

IF TIMER3>15 THEN TIMER3=8 

IF J0Y=7 OR J0Y=6 THEN HPOS==+l FI 
IF JOY=ll OR J0Y=18 THEN HP05==-1 FI 
POKE €53248, HP0S3 POKE €53249 , HP 053 
IF J0Y=14 THEN 
SPEED==-1 

IF SPEED<1 THEN 5PEED=1 FI 
FI 

IF STRIGC83=8 OR J0Y=13 THEN 5PEED==+1 
IF SPEED>6 THEN SPEED=6 FI 
FI 

FI 

RETURN 

; 

PROC COLLISION €3 
IF PEEK€532523»8 THEN 
CAR5==-1 

IF CARS>3 THEN G AME=1 FI 
;CONTINUE SCROLL FOR A WHILE 
FOR X=8 TO 288 DO 

M0UEBL0CKCPM+512+97, CRASH, 93 

SCROLL €3 SOUND €8,228,2, 123 

FOR Z=8 TO 288 DO OD 

SNDRST €3 

M0UEBL0CK€PM+512 + 97,CRA5H + 9, 93 
OD 

FOR X=8 TO 58888 DO OD 
HPOS=P €LAP3 

POKEC cDL + 18, SCRB3 POKE €53248, HP0S3 
POKE €53249, HP0S3 SCR = SCRB 
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n0UEBL0CKcprt + S12 + 97,Pt1DATA, 9* 

SPEED=6 POKE €54277, 15J Y = 15 

P0KEc53278,255> 

FOR X=8 TO 5666 DO OD 

SNDRSTC1 

DO UNTIL 5TICKC0JO15 OD 

0=Z 
FI 

RETURN 

PROC HAINcj 
DO 

TITLE €3 MIN = e 5EC = 0 

SETRAMo 

DLI5TCJ 

PHSETUPcj 

SETLOAOci 

SCRLOAD €J SETCOLOR €2, 8. 3 J 
SETCOLOR €1, 12. 7> SETCOLOR C0 , 6 , 15l 
SETC0L0RC4. 1 # 2* SETCOLOR c3 , 7 , 5 J 
SCR=SCRB POKE €559,42* 
P0KECCDL+18,SCRB> 

POKE €54277, 15) POKE €53248 , HPOS> 

POKE €53249, HPOS> 

DO Q = 8 UNTIL STICKc8><>15 OD 

DO 

IF PEEKC764>=33 THEN Z = 0 

DO UNTIL PEEK€764><>33 OD Q=Z FI 
TOGGLESETCJ 

POKE €53278,2551 SCROLL ci COLLISION o 

LftPSCJ 

TIHECS 

POKE €53278,255) MOUPL ci COLLISION o 
UNTIL G AME=1 OR G AME=2 OD 
IF GAME=2 THEN SNDRST c J 

POKEC cDL+4, MINDOM1J 

DO 

C=RANDc255> 
Z-R AND €25 5 > 

SOUND c0, C, 18, 8 J SOUND ci, Z,2, 6 J 
IF C = ll AND Z<58 THEN POKEC €DL+4 , MINDOU> FI 
IF C=69 AND Z>28S THEN POKEC cDL+4 , HINDOMU FI 
UNTIL CONSOLES OD 

FI 

POKE €186, 168> LAP=1 HP0S=95 

POKE cb 3248, 6 J POKE c 5 324 9 ,8* 

CARS=3 C=5 

SNDRST c j 

IF G AME=2 THEN 

IF niN<niNl THEN 

MINH1=MINH MINL1=MINL 

SECL1=SECL SECH1=SECH 

SEC1=SEC MIN1=MIN FI 
IF riIN=MINl AND SEC<SEC1 THEN 

niNHl=NINH HINL1=MINL 

SECH1=SECH SECL1=SECL 

SEC1 = SEC niNl=l1IN FI 
ELSE IF G AME= 1 THEN SEC=99 MIN=99 

SECL=9 SECH=9 

MINL = 9 I1INH = 9 FI 

FI 
OD 

RETURN 

LISTING 2 

i DEMON RACER, LISTING 2 
jBV JON PETERSON 
j€c>1988, ANTIC PUBLISHING 
PROC SCREENDATAO 

i 

t8 88888888888888 
868888688868886 
888888888888888 
868888886888888 
888888888688888 
8 6 8 8 38 38 38 38 38 38 38 8 1 6 8 
868881688888818 
8 8 8 8 8 8 1 38 38 38 38 38 38 38 38 
38 38 38 38 38 36 8 1 8 8 8 8 8 8 8 
186888681888888 
8 1 38 38 38 38 38 38 38 38 38 38 38 38 38 
38 81888688818868 
688188886881 38 38 38 
38 38 38 38 38 36 36 38 38 38 38 8 1 8 8 
888888818 
1 38 38 38 38 38 38 38 36 
38 38 818886888 
8 8 8 8 

38 38 38 38 38 36 36 



8 6 6 8 8 1 
8 6 8 8 6 8 
38 38 38 38 
18888868188 
8 1 38 38 38 38 38 38 
38 81888888818888 
8 8 8 188868681 38 36 38 

36 36 36 36 38 38 38 8 1 8 8 
888886818 
1 38 38 38 38 38 38 38 38 
38 38 818888888 
881888888 



38 38 38 38 
8 8 8 6 8 1 
8 8 8 6 8 8 
38 38 38 38 
1 8 8 8 8 8 
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8 1 38 36 38 38 38 38 38 38 38 38 38 38 38 

38 81888888818888 

888186868881 38 36 38 

38 38 38 38 36 38 38 38 38 36 38 8 1 8 8 

888881888688818 

8 8 8 6 8 8 1 38 38 36 38 38 36 38 38 

38 36 38 38 38 38 8 1 8 8 8 8 6 8 8 

188888881888888 

8 1 38 36 38 38 38 38 38 38 38 36 38 38 38 
38 81888886818888 
888188888881 38 38 38 

38 38 38 38 30 38 30 30 30 30 30 30 30 30 30 

30 30 30 30 27 2 0 0 0 0 11 10 27 1 0 

0 0 0 0 9 27 27 30 30 30 30 30 30 30 30 

30 30 30 30 30 30 30 30 30 30 30 30 30 27 2 

00009 27 30 27 200009 27 

27 27 30 0 0 0 0 0 30 30 30 30 30 30 30 

30 30 30 30 30 30 30 27 2 0 0 0 0 9 27 

30 27 2 0 0 0 0 9 27 27 158 158 30 0 0 

0 0 0 30 30 30 30 30 30 30 30 30 30 30 30 

30 27 2 0 0 0 0 9 27 30 27 2 0 0 0 

0 9 27 158 158 158 158 30 0 0 0 0 0 30 30 

30 30 30 30 30 30 30 30 30 30 27 2 0 0 0 

0 9 27 30 27 2 0 0 0 0 9 27 158 158 158 

158 158 30 0 0 0 0 0 30 30 30 30 30 30 30 

30 30 30 30 2? 2 0 0 0 0 9 27 30 2? 2 

0 0 0 0 9 27 158 158 158 158 158 158 30 0 0 

0 0 0 30 30 30 30 30 30 30 30 30 30 27 2 

00009 27 30 27 200009 27 

158 158 158 158 158 158 158 30 0 0 0 0 0 30 30 

30 30 30 30 30 30 30 27 2 0 0 0 0 9 27 

30 27 2 0 0 0 0 9 27 158 158 158 158 158 158 

158 158 30 0 0 0 0 0 30 30 30 30 30 30 30 

30 27 2 0 0 0 0 9 27 30 27 2 0 0 0 

0 9 27 158 158 158 158 158 158 158 158 158 30 0 0 

0 0 0 30 30 30 30 30 30 30 27 2 0 0 0 
008 30 30 1000008 158 158 158 

158 158 158 158 158 158 156 30 0 0 0 0 0 30 30 
30 30 30 30 30 1 0 0 0 0 0 0 7 27 30 

1 0 38 0 0 38 8 158 158 156 158 156 158 158 158 
158 158 30 0 0 0 0 0 30 30 30 30 30 30 30 
1000 39 0008 30 10000 

0 8 158 158 158 158 158 158 158 156 156 30 30 0 0 

0 0 0 30 30 30 30 30 30 30 1 0 0 0 0 
0008 30 1 38 00 38 08 158 158 158 

158 158 158 158 156 30 30 0 0 0 0 0 30 30 30 
30 30 30 30 30 1 0 39 0 0 0 39 0 8 30 

10 0 0 0 0 8 158 158 158 156 158 158 158 30 
30 0 0 0 0 0 30 30 30 30 30 30 30 30 30 
100000008 30 10 38 00 

38 8 158 158 158 158 158 158 30 30 0 0 0 0 0 
30 30 30 30 30 30 30 30 30 30 1 0 0 0 39 
0008 30 1000006 158 158 158 
158 158 30 30 0 0 0 0 0 30 30 30 30 30 30 
30 30 30 30 30 1 0 0 0 0 0 0 0 8 30 

1 38 0 0 38 0 8 158 158 158 158 30 30 0 0 
0 0 0 30 30 30 30 30 30 30 30 30 30 30 30 
10 39 000 39 08 30 10000 

0 8 158 158 158 36 30 0 0 0 0 0 30 30 30 
30 30 30 30 30 30 30 30 30 30 1 0 0 0 0 

0008 30 10 38 00 38 8 158 158 30 
30 0 0 0 8 0 30 30 30 30 30 30 30 30 30 
30 30 30 30 30 1 0 0 0 39 0 0 0 8 30 
10 0 0 0 0 8 158 158 30 30 0 0 0 0 

30 30 30 30 30 38 30 30 30 30 30 30 30 30 30 
100000008 30 1 38 00 36 
0 8 158 158 30 30 0 0 0 30 30 30 30 30 30 
30 30 30 30 30 30 30 30 30 30 27 13 0 0 0 

009 27 30 1000008 158 158 30 

30 0 0 0 30 30 30 30 30 30 30 30 30 30 30 
30 30 30 30 30 27 1 0 0 0 0 9 27 27 30 

10 0 0 0 0 8 158 156 30 30 0 0 0 30 

30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 
27 1 0 0 0 0 6 27 27 30 27 15 12 0 0 

0 7 158 158 30 30 0 0 0 7 30 30 30 30 30 
30 30 30 30 27 27 27 27 27 27 27 2 0 0 0 
9 27 27 27 27 27 27 2 0 0 0 9 27 27 27 

1 0 0 0 0 5 6 27 27 27 27 27 27 27 27 
27 27 27 27 27 2 0 0 0 9 27 27 27 27 27 
27 2 0 0 0 9 27 157 157 157 27 15 12 0 0 
0 0 5 6 27 27 27 27 27 27 27 27 27 27 2 
0 0 0 9 27 27 27 27 27 27 2 0 0 0 9 

27 157 157 157 157 157 157 27 15 12 0 0 0 0 5 

6 27 27 27 27 27 27 27 2 0 0 0 9 27 27 

27 27 27 27 2 0 0 0 9 27 157 157 157 157 157 

157 157 157 27 27 15 12 0 0 0 0 8 27 27 27 

27 27 1 0 0 0 0 8 27 27 27 27 27 2 0 

0 0 9 27 157 157 157 157 157 157 157 157 158 158 158 

158 158 26 28 28 28 26 158 158 27 27 27 1 0 0 
0 0 8 27 27 27 27 2 0 0 0 9 27 157 157 

157 157 158 158 158 158 158 158 158 158 29 29 26 28 28 

28 26 29 29 27 27 27 1 0 0 0 0 8 27 27 

27 2 0 0 0 9 27 158 158 158 158 158 158 158 29 

29 29 29 29 29 29 29 26 28 28 28 26 29 29 27 
27 27 200008 27 27 20009 

27 158 158 158 158 29 29 29 29 29 29 29 29 29 29 

158 158 26 28 28 28 26 158 158,27 27 1 0 0 0 
008 27 20000 158 158 158 29 29 29 

29 29 158 158 158 158 158 156 158 158 27 2 0 0 0 
0 9 27 27 30 30 30 56 56 0 32 32 30 30 32 

32 0 56 56 158 29 29 29 29 29 158 158 158 27 27 
27 27 27 27 27 2 0 0 0 0 9 27 27 27 30 

30 30 0 0 0 0 0 30 30 0 0 0 0 0 158 

158 29 29 29 29 29 158 27 27 27 27 27 27 27 2 

0 0 0 0 9 27 27 27 27 30 30 30 32 32 0 

56 56 30 30 56 56 0 32 32 158 29 29 29 29 29 

158 158 27 27 27 27 27 27 2 0 0 0 0 9 27 

27 27 27 27 30 30 30 0 0 0 0 0 30 30 0 

0 0 0 0 158 158 29 29 29 29 29 158 27 27 27 

27 27 1 0 0 0 0 0 8 27 27 27 27 27 30 

30 30 56 56 0 32 32 30 30 32 32 0 56 56 158 

158 158 29 29 29 29 158 158 27 27 27 27 1 0 0 

56 56 56 8 27 27 27 27 27 30 30 30 0 0 0 
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86 38 36 80868 158 156 29 29 29 29 

158 158 158 158 27 27 27 1 0 8 8 8 8 8 27 

27 27 27 27 38 38 30 32 32 0 56 56 30 30 56 

56 8 32 32 158 158 29 29 29 29 158 158 158 158 158 

27 27 1 8 8 8 8 8 8 27 27 27 27 27 38 

38 38 0 8 8 8 8 38 38 8 6 8 8 8 158 mi . 

158 158 29 29 29 29 158 158 158 158 158 27 1 168 168 

168 8 8 8 27 27 27 27 27 38 38 30 13 0 0 

0 9 30 30 13 0 0 0 9 158 158 29 29 29 29 

29 29 158 158 158 158 158 1800008 27 

27 27 27 27 29 38 38 1 8 0 0 8 30 30 1 

0 0 0 8 158 158 158 29 29 29 29 29 29 29 158 
158 158 27 13 8 8 8 9 27 27 27 27 27 27 29 
29 29 26 26 28 28 26 29 29 26 28 28 28 26 29 
29 29 29 29 29 29 29 29 29 29 29 158 158 1 8 
8 8 8 38 38 38 38 38 38 38 38 29 26 28 28 

28 26 29 29 26 28 28 28 26 29 29 29 29 29 29 

29 29 29 29 29 29 29 29 26 28 28 28 26 29 29 
38 38 36 36 38 38 38 1 8 8 8 8 30 38 2 

8 8 8 7 158 158 29 29 29 29 29 29 29 29 29 
29 29 29 26 28 28 28 26 29 29 29 29 38 36 36 
38 36 1 6 8 8 8 38 38 13 8 8 8 8 7 

158 158 158 29 29 29 29 29 29 29 158 158 158 1 6 

8 8 8 38 36 29 29 29 29 38 38 38 1 6 8 

8 5 6 158 158 13 8 6 8 8 7 27 158 29 29 

29 29 29 29 29 158 158 27 1 8 6 8 5 6 27 

38 38 38 29 38 36 36 27 13 8 6 8 8 5 6 

158 13 8 6 8 6 7 158 158 29 29 29 29 29 29 

29 158 158 27 15 12 8 8 8 5 6 27 36 38 38 
38 38 27 27 13 6 8 6 8 8 7 158 13 8 8 

8 8 7 158 158 158 29 29 29 29 29 29 158 158 158 
27 13 6 8 8 8 8 27 38 38 38 38 27 27 27 
13 8 6 8 8 6 8 158 15 12 8 8 8 5 6 

158 158 158 29 29 29 29 29 158 158 158 1 168 8 6 

8 8 27 27 38 38 36 27 27 27 1 8 6 6 6 

9 156 158 158 158 15 12 8 8 8 5 6 158 158 158 
158 29 29 29 158 158 1 8 8 8 8 8 27 27 38 

38 38 27 27 27 1 6 8 8 9 158 158 157 157 158 

158 158 13 6 6 6 0 8 158 158 158 158 156 158 158 

27 2 8 8 8 166 8 27 27 38 38 36 27 27 27 

10 6 8 8 158 158 157 157 157 158 158 1 32 32 
32 32 8 27 158 158 158 158 27 3 4 6 8 6 8 

8 8 27 27 38 30 30 27 27 27 1 6 0 0 8 

158 158 158 157 157 157 158 1 8 6 8 6 8 27 27 

27 27 27 2 8 8 8 8 8 8 9 27 27 27 36 

38 38 27 27 27 1 8 8 8 8 158 158 158 158 157 

157 158 1 56 56 56 56 B 27 27 27 27 1 32 32 
32 32 32 32 32 8 27 27 27 36 38 38 27 27 27 
2 6 6 8 8 158 158 158 158 158 158 158 18 6 
8 8 7 27 27 27 27 1 8 6 8 168 166 160 160 

8 27 27 27 30 30 30 27 27 2 0 0 0 9 27 

158 158 158 158 158 158 158 1 32 32 32 32 32 8 27 
27 27 1 168 168 168 168 56 56 56 8 27 27 27 38 

38 38 38 38 8 8 8 8 38 38 38 38 38 36 36 

30 30 1 0 0 0 0 0 8 27 27 27 1 0 0 

0 160 160 160 160 8 27 27 27 30 30 30 30 30 0 

0 0 0 0 0 30 30 158 157 157 30 30 1 0 0 

0 11 10 27 27 27 27 1 32 32 32 32 32 32 32 

8 27 27 27 38 38 30 30 30 30 30 0 0 0 0 

30 30 157 157 158 30 30 1 32 0 0 5 6 27 27 

27 27 1 0 0 0 0 0 0 0 6 27 27 27 30 

30 30 30 30 0 0 0 0 0 0 30 30 150 157 157 

30 30 1 32 0 0 11 10 27 27 27 27 1 56 56 

56 56 56 56 56 8 27 27 27 30 30 30 30 30 0 

0 0 0 30 30 30 30 157 157 158 38 38 1 32 8 

8 5 6 27 27 27 27 1 8 8 0 0 0 11 10 

27 27 27 27 3*0 30 30 30 30 0 0 0 0 0 0 

30 30 158 157 157 38 38 1 32 8 8 11 10 27 27 



27 27 2 0 0 0 11 10 27 27 27 27 27 27 30 

30 30 30 30 30 30 0 0 0 0 30 30 157 157 158 

38 38 1 8 0 0 5 6 27 27 27 1 0 0 0 

9 27 27 27 27 27 27 27 27 30 30 30 30 30 0 

0 0 0 0 0 30 30 158 157 157 38 30 1 0 0 

0 0 9 27 27 27 1 0 0 0 7 27 27 27 27 

27 27 27 27 30 30 30 30 30 0 0 0 0 0 0 

30 30 157 157 158 38 36 2 8 8 8 9 27 27 27 

27 27 13 8 8 6 7 27 27 27 27 27 27 27 29 

30 30 30 30 0 0 0 30 30 30 30 158 157 157 38 
36 38 8 8 6 9 27 27 27 27 27 27 27 13 8 
8 8 7 27 27 27 27 27 27 29 29 29 29 26 28 

28 28 26 38 38 38 38 36 38 36 36 38 8 6 8 
38 38 38 27 27 27 27 27 27 13 8 6 8 7 27 

27 27 27 27 158 158 29 29 26 28 28 28 26 29 29 

29 29 29 29 29 29 26 28 28 28 26 38 38 36 36 
38 38 38 38 38 13 8 8 8 38 38 36 38 38 158 
158 158 158 18 6 8 7 158 158 158 158 29 29 29 
29 26 26 28 28 26 29 29 29 29 29 29 29 29 29 

26 28 28 28 26 30 30 30 30 158 158 27 27 1 8 
8 8 8 8 27 158 158 158 158 158 158 2 8 8 8 

8 158 158 158 158 158 29 29 29 29 26 28 28 28 26 

29 38 38 38 158 158 27 27 1 6 6 6 6 8 27 

27 27 27 27 27 2 8 8 8 6 8 27 27 27 27 

158 158 158 158 158 26 28 28 28 26 29 29 29 38 158 

158 27 27 1 8 8 8 8 7 27 27 27 27 27 2 

8 6 8 8 9 27 27 27 27 27 27 27 27 27 2 

8 8 8 6 8 158 29 29 29 158 158 27 27 1 8 

68887 27 27 27 2888888 

27 27 27 27 27 27 27 27 2 8 8 8 6 6 8 

158 158 158 158 158 158 27 27 27 13 8 8 8 8 8 

7 27 27 13 8 6 8 8 8 8 27 27 27 27 27 
27 27 2 8 8 8 8 8 6 8 27 27 158 158 158 
158 27 27 27 27 13 8 6 8 8 8 7 27 27 13 

8 8 8 6 7 27 27 27 27 27 27 2 8 8 8 

8 0 8 9 27 27 27 158 158 158 158 27 27 27 27 
27 13 8 8 8 8 8 7 27 27 13 6 8 8 8 

7 27 27 27 27 2 8 6 8 8 8 11 18 27 27 

27 27 158 158 158 158 27 27 27 27 27 27 13 8 6 
8687 27 1688867 27 27 2 

8 8 8 8 8 9 27 27 27 27 27 27 158 158 36 
38 38 38 38 36 38 8 1 6 8 6 6 8 8 8 
188888881868866 

8 1 38 38 38 38 36 36 30 30 36 38 38 36 38 

38 81868686818886 

688186688081 36 36 38 

38 36 30 30 36 38 38 36 38 38 38 8 1 6 0 

000081686688818 

0 0 0 0 0 8 1 30 30 30 30 30 30 30 30 

30 30 30 30 38 38 8 1 6 8 8 8 8 6 8 
186888681888800 

6 1 38 38 36 30 30 30 30 30 30 30 30 30 30 

30 81666688818888 

888168688681 36 36 38 

36 38 38 38 38 38 38 38 38 38 36 8 1 8 8 

666881886666818 

6 8 8 8 6 8 1 36 38 36 38 36 30 38 38 

30 30 30 30 30 30 8 1 8 8 8 8 6 6 8 

186888661866608 

8 1 38 36 36 36 36 38 36 30 30 30 30 30 30 

30 81868088816886 

888188666681 38 36 38 

36 36 38 38 30 38 38 36 38 38 38 8 1 6 6 

868881686668818 

8 8 6 8 8 8 1 38 38 36 38 38 30 38 83 

; 

RETURN 
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LISTING 1 



Don't type the, 
TYPO II Codes! 



NX 
TQ 
UN 

xo 



RH 



CO 



on 

DB 

DO 
HX 
UL 
DB 
TI 
BD 



16 REM ANTIC-PAK 

12 REM BV EUGENE KOH 

14 REM cc>1988, ANTIC PUBLISHING 

16 GRAPHICS 8'POKE 559 , 8 : DL=256*PEEK c5 

61) +PEEKC568* : POKE DL+3,7l:P0KE DL+6,6 

•POKE DL+7,6:P0KE 718*144 

18 POKE 712,182:P0KE DL+8,7:P0KE DL + 22 
,5:P0KE DL+23,6:P0KE DL+24,6:P0KE DL+2 
5,6 

28 POKE DL + 26. 65 ' POKE DL+27 , PEEK c568> ' 
POKE DL+28, PEEKC561> : ? " ANTIC - PAK" ■ ? 

"BY U. EUGENE KOH" 
22 MUFLG=PEEKC1913J 

? "iUonvert File to BASIC Loader" 



24 
:? 
26 
28 
38 
32 
43 
46 



•LlfQIR Connand Creator":? 
•□r=!x9hty-CoiuMn Disk Directory" '•? 
•IIMiie Manasenent Helper":? 
TIMarbase Renover"»? 

•■4!HHBBBHR3mra«PiraEinPIHBB" : POKE 788,286 



Y5 
BT 
UE 
HU 

UT 

ZY 



UY 
DI 
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:POKE 789, 14: POKE 711,78:? •• DQE]fl6Hf!6Ubl 
[*1fciH[»i":P0KE 559,34 

48 OPEN ttl,4, 8, "K: " : GET »1,JNK:CL0SE » 

58 IF JNK<67 OR JNK>71 THEN ? "Q";:GOT 
0 48 

52 JNK= JNK-66 : ON JNK GOTO 1188,288,188 
8 , 388 , 888 

288 GRAPHICS 8:? :? "DIR COMMAND MAKER 
":CL05E «3:0PEN »3 , 8 , 8 , "Dl » DIR" » DIM QQ 
5 c68> 

2 82 QQ$="CLR:DIMA$C58> : ? : ? : OP . »1 , 7 , 8 , X 
D:*.«X:F.A = lT099:IN.stl;A$:?A$;X X; :N. 
A" 

284 QQ$C29,29)=CHR$C34> :QQ$c35,35*=CHR 
$C34> :QQ$c68,68>=CHR$c34> :QQ$C63,63>=C 
HR$ C34> 

286 ? **3 ; QO$ : CLOSE «3 

288 ? "Use ENTER"; CKR$ C34J ; "D : DIR to 9 

continued on next page 
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et a":? "disk diretory anytine. When y 
ou see'* 

216 ? "the ERROR 136, type END or CLOS 
E ttl . : END 

368 GOSUB 362:P0KE 1913,87:P0KE 65,8:D 
IM F$c58>,N$c58>,X$c58> 

362 ? "D = Delete F i l e" ; CHRS ci27» ; "L = 

Lock File" 
364 ? "R = Rename F i 1 e" ; CHRS ci27> ; "U = 

Unlock File" 
366 ? "ESC = Go back RETURN = No Ch 
apses" 

388 ? :? :? "Insert work disk into dri 
Me one and":? "press START to begin... 

"; :POKE 559,34 
316 ON PEEKC53279* <>6 GOTO 318 : OPEN «2 
#4,B, M K*"i JNK=1 

312 GOSUB 362:? "L Filename Ext Size": 
? :OPEN ttl, 7, 8, "D :*.*" 

314 FOR FNS = 1 TO JNtOINPUT ttl , F$ : NEXT 
FN5 

316 ON F$c7,9>="EE " GOTO 352:JNK=JNK+ 
It? FS Cl, 18J ; CHR$ C46J ; F$ Clll ; »;:p 
OKE 559,34 

318 GET tt2,5EL:IF SEL = 155 THEN GOSUB 3 
62:? "L Filename Ext Size":? 'INPUT ttl 
,F$:GOTO 316 

328 IF SEL=27 THEN JNK=JNK-2:IF JNK<1 
THEN JNK=1 

322 IF 5EL = 27 THEN CLOSE ttl : GOTO 312 
324 ON SEL<>68 AND SEL<>76 AND 5EL<>82 

AND SELOS5 GOTO 318 
326 POKE 559,8:N$="D:":F0R PSN=3 TO 18 

:IF F$CPSN,PSN>=CHR$C32> THEN NEXT PSN 

:GOTO 336 

328 N$ CLEN cN«* + D=CHR$cA5CcFS cPSN, PSN> 
> J : NEXT PSN 

338 ON F$cil,l3)=" " GOTO 336:N$cLEN 
CN$> +13 =CHR$ C46J 

332 FOR PSN=11 TO 13:IF F$ CP5N , PSN J =CH 
R$c32> THEN NEXT PSN:GOTO 336 
334 N$ CLENCN$>+1>=CHR$ cASC cF* cPSN,PSN> 
: NEXT PSN 

336 IF SEL=68 THEN ? "DELETE":? :? "OK 
ay to delete? ";:POKE 559,34:GET tt2,0K 
:0N 0KO89 GOTO 344 : POKE 559,8 
338 ON SEL=82 GOTO 346:IF 5EL=68 THEN 
XIO 33,tt3, 8, 8,N$ : JNK= JNK- 1 : GOTO 344 
348 IF 5EL = 76 THEN XIO 35 , tt3 , 8 , 8 , N$ : GO 
TO 344 

342 XIO 36,tt3,8,8,N$ 
344 CLOSE ttl: GOTO 312 
346 POKE 559,34:? "RENAME" : ? I 

new f i lename :": INPUT tti6,X$ 
348 POKE 559,8:NSCLENCNS>+1*=:CHR$C441 i 
N$cLENcN$>+l>=X$ 

358 XIO 32,tt3,8,8,N5:CL0SE ttl: GOTO 312 
352 GOSUB 362:CL0SE ttl : OPEN ttl, 7, 6, "D: 
*.*":TRAP 358:? -CURRENT FILE DIRECTOR 
Y : " 

354 ? :? "L Name Ext Size L Name 

Ext Size":? :POKE 559,34 
356 INPUT ttl,F$:? F$ ; CHR$ c32> ; CHRS c32* 
; : GOTO 356 

358 CLOSE ttl:? :? :? "DONE! Press RE5E 
T to quit, or" 

368 ? "SELECT to restart this program. 
.. ";:POKE 1913 , WUFLG : GOTO 376 
362 GRAPHICS 8:P0KE 559,8:P0KE 718,192 
:POKE 712,146 

364 ? :? " FILE MANAGEMENT HELPE 

R" 

366 ? 

368 ? :? : TR AP 378 : RETURN 

378 ON PEEKC1951 =136 GOTO 352 

372 GOSUB 362-? "ERROR tt ; PE EK c l 95) ; C 

HRS C253J 

374 ? :? "Press SELECT to restart prog 
ram... ";:POKE 559,34:P0KE 1913, WUFLG 
376 ON PEEKC53279) <>5 GOTO 376:RUN 
868 GRAPHICS 8:TRAP 836 : POKE 559,8:RE5 
TORE 862:F0R A = 708 TO 712:READ B : POKE 
A , B : NE X T A 

882 A = PEEKC566> +PEEK C56U *256 x DATA 78, 
12, 166, 198, 166 

884 POKE A+6,7:P0KE A+7,6:P0KE 65,6:? 
:DIM F$C58> 

886 ? "GARBAGE REMOUER ramBOTlPlPmraB 

faPlffl" : ? : ? 

868 ? "File to process: ":POKE 559,34: 
INPUT ttl6,F$:IF F$ = "" THEN RUN 
818 POKE 752,1:? 8? :? "Press START to 
beg i n . " 



•Enter 



SJ 



KL 
CT 
ME 

TI 
F5 

CC 
IA 
GK 
PU 

NJ 
UB 

KP 
LJ 



FT 
OM 



SU 
BQ 
BD 

PS 

UQ 

US 
CO 

EP 
TI 



LY 
XN 

SU 
JU 



LI 

XP 

UG 

DA 
TO 

OH 

UU 

XL 
CD 

RG 
UG 

SO 

QG 

QM 
QU 

OF 

RB 

BA 

NR 

EU 
UA 
NB 

MY 



812 

S 8: 
7 

814 
816 
818 
CHRS 
826 
822 
1913 
824 
826 
828 
836 
5> 
832 
834 



ON PEEKC53279) <>6 GOTO 812 : GRAPHIC 
POKE 559,6:P0KE 77,128:P0KE 1913,8 



? : ? 
? : ? 
? : ? 
"c34> ; F$ 
? :? :? 
? : ? : ? 
, 87" 
? : ? 



:? 
: ? 

I ? 



: ? 



"LOAD "; CHR$ c34> ; F$ 
"LIST "; CHR$ C34J ; F$ 
:? "NEW ":? :? :? "ENTER" j 

"SAUE ";CHR$c34* ;F$ 

"POKE 77,8:P0KE 65,3:P0KE 



POKE 842,12:GR.8: NEW" 
POSITION 2,8 

POKE 842,13:P0KE 1913, WUFLG : END 
GRAPHICS 8:? *? "Error tt ";PEEKC19 

POKE 77,6:P0KE 842,12:P0KE 718,8 
? :? "QQPress OPTION to start over 

836 ON PEEKC53279* <>3 GOTO 836:RUN 
1888 GRAPHICS 8*? :? "Enter disk title 
:••:? :? ">>> ";tDIM AS C168 J , B$ C186J : IN 
PUT ttl6 ; A* : LPRINT A$ : LPRINT 
1862 CLOSE ttl: OPEN ttl , 7 , 8 , "D : ** . 
1684 FOR U = l TO 4:INPUT ttl ; A$ : B$ cLEN cB 
$*+l>=A$:IF A*C5,9J="FREE " THEN POP ■ 
LPRINT B$:CLOSE ttl : END 

1866 B$ CLEN cBSj +13 = NEXT U:LPRINT 

B$:B$ = GOTO 1884 

1188 DIM A$ C188J , B$ C186> , C* C188» « CLOSE 

ttl: OPEN ttl, 4, 8, "K:" 
1182 GOSUB 1176:? "Insert disk into dr 
iue":? "and press < RETURN> . . • " ; : GET tt 
1, JUNK 

1184 GOSUB 1176:TRAP 1168:0PEN «2 , 7 , 8 , 
"Dl : * . *" 

1186 INPUT tt2,A«:? A$;" ";:GOTO 1186 
1188 IF PEEKC195) <>136 THEN 1182 
1118 CLOSE tt2:? :? :? :? "Press <5PACE 
BAR> to continue... " ; : GET tti,JUNK 
1112 GOSUB 1176 

1114 ? "Enter filename of program to c 
onyert : " : INPUT ttl 6, B$ :A$ = "Dl:":A$C4)=B 
* 

1116 IF B$ = "" THEN ? "BBffl" ; : GOTO 1114 
1118 ? :? "Enter filename for new prog 
ram : " : INPUT ttl6, C$ :B$="D1:":B$C4>=C$ 
1126 IF C$ = "" THEN ? "fflEEBB" ; : GOTO 1118 
1122 ? :? "Enter line number to start 
at:":INPUT ttl6,LN:IF LN<8 OR LN>18886 
THEN ? "ffifflffi"; : GOTO 1122 

1124 ? :? "Enter increment: 16ffiffi";:INP 
UT ttl6,I:IF I<1 OR I>58 THEN ? "fflffiffl" ; : 
GOTO 1124 

1126 ? :? "Press < RETURN > when ready t 
o begin. " ; : GET ttl, JUNK 

1128 GRAPHICS 18:P0SITI0N 5,4:? »6 ; "GDffl 
RkHIHGHBa* 1 : POKE 65,8 

1136 OPEN »2,4, 8, A$ : OPEN tt3,8,8,B$ 
1132 ? tt3; LN; "GR . 6 :?:?"; CHR$ C34) ; "CHEC 
KSUM LOADER BY EUGENE KOH" ; CHR3 c34> ;": 
OPEN tt3,8,8,";CHR$€34i ; A$ : LN = LN + I 
1134 ? «3;LN;" READ A:IF A=-l THEN CLO 
5E tt3:G0T0 " ; LN + I + I : PZ = LN + I + I : LN = LN*I 
1136 ? «3;LN;" PUT »3 , A ■ CNT=CNT+A : GOTO 

";LN-I:LN=LN+I+I+I 
1138 TRAP 1144:? tt3;LN;" DATA "; 
1148 FOR DA = 1 TO 15:GET tt2 , N : PCT = PCT + N 
:? «3;N;:IF DA<15 THEN ? »3 ; " , " ; 
1142 NEXT DA : LN=LN+I : ? «3 : GOTO 1138 
1144 IF PEEKC195) <>136 THEN CLOSE »2 : C 
LOSE tt3:P0P : GOTO 1182 

1146 ? »3;"-l":? »3;PZ;" IF CNTO";PCT 
J" THEN ?CHR$c253) ;";CHR$c34> ; "ERROR I 
N DATA STATEMENTS! ";CHR$ C34> ;":END" 
1148 ? «3;PZ+I;" ?" ; CHRS c34) ; "NO ERROR 

5 . " 

1158 CLOSE tt2 'CLOSE tt3 : POP 

1152 GOSUB 1176:? "BEMlBrafflfMsiBB" : ? :? " 

Please choose:":? 

1154 ? "[JEirJExi t to DOS":? •'□[QLlExit to 

BASIC":? "(iraiiStart over":? 

1156 ? "Please enter your choice: ! MBHFH 
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1158 GET ttl , AD : IF AD<65 OR AD>67 THEN 
1158 

1168 ? CHR$ cAD+1285 ; "W" ; 
D GOTO 1162,1164,1186 
1162 CLOSE ttl:DOS 
1164 CLOSE ttl:GRAPHIC5 8 

1166 GRAPHICS 8:? :? "Enter disk title 
:":? :? > > > ";:DIM A$ (180) , B$ C186> 
PUT ttl6 ; AS : LPRINT A$: LPRINT 
1168 OPEN ttl, 7, 8, "D :*.*•• 



AD=AD-64:0N A 



i IN 



ANTIC SOFTWARE LIBRARY 



OT 



BI 

GA 
UU 

SP 



1178 FOR U=l TO 4:INPUT «1 ; A$ : B$ cLEN cfl 
SJ+H=ft$:IF A$c5,9>="FREE " THEN POP : RB 
LPRINT B$:CLOSE »1 : END 

1172 BS CLEN cBS» +U = NEXT U:LPRINT RL 

BS : B$="" : GOTO 1178 

1174 END ZS 
1176 GRAPHICS 8:P0KE 718,196:P0KE 712, 
196:P0KE 789,15 OK 

1178 ? ** ■■o^Q^^r^aarimiiBrima^MuriiH gt 



■•• t? " By Eugene Koh" 

1188 ? "BBBBBBBBBBBBSBBBBBBBBBBBBBBHBB 

BBBSBBB":? :TRftP 1182: RETURN 

1182 GOSUB 1176:? "ERROR n ";PEEKC195> 

; "Q" i ? 

1184 ? "Press <SPftCEBAR> to restart... 

"; : GET Hi* JUNK 
1186 RUN 
1188 END 



ALL THE CARDS ARE FACE UP, SO THERE'S NO EXCUSE 

BAKER SOLITAIRE 



Article on page 10 



LISTING 1 



Don't type the 
TYPO II Codes! 



LL 
ML 
OP 
LO 
QH 
UK 

RZ 

Y Q 

JQ 



UC 



EK 
DC 



RJ 



NH 
JT 



XA 



HA 



OC 

NJ 
OIL 
OS 
PY 

MS 



UA 

JC 

cx 



CM 
QZ 

UU 



UI 
JU 
AW 



AL 



FU 
SP 



18 REM BAKER SOLITAIRE 
12 REM BY TOM CLINE 

15 REM cc>1988, ANTIC PUBLISHING 

28 CLOSE tltOPEN «1 > 4 , 8 , "K : " I GOTO 38 

22 UIN=8:0N SUITS1 GOTO 24,25,26 

24 X=USR cB AND, PEEK cSCR+TL* ,63> : UIN = cX = 
43> : RETURN 

25 X=USR CB AND, PEEK C5CR+131 , PEEKcSCR+TR 
> ,63) :UIN= CX = 43J : RETURN 

26 X=USR CB AND, PEEK CSCR+TL* , PEEKcSCR+13 
1 ,PEEKCSCR+TR> ,63) :UIN=cX=43> : RETURN 
38 DIM CARD*C52> ,TEMCRD«ci) ,CNc254> ,BR 
C281 , A$ c28> , B$ c28* ,CSc28»,D$<28>,F$c28 
> , BLINK$ €283 ,UNSHUF$C52> 

48 DIM BEFCOL* c388> , BEFROUS c388> , AFTCO 
L$C388> , AFT ROUS c388> , CRD RE MS c388 J , MARK 
€18) , BANS C22> 

45 BAN$=*'hQauaasi[Uh>c[ija[Cih>caaaEiQsae** i band= 
ADRcBANt) 

58 CARDS = "A23456789TJQKaBffi«HrjfflfflHt JqkfflB 

HHBHHmauiocaQiiiassnaoinofioiiEiH • ' :UNSHUF$=CARD 
$ : REM DECK OF UNSHUFFLED CARDS 
68 FOR K=l TO 52 : CN CASC cC ARD$ CK, K) > > =K 
: NEXT K : REM POSITION OF A CARD IN CARD 

% 

78 IF PEEK€1536)=72 THEN 128 
88 RESTORE 88 : FOR K=8 TO 61 : READ BYTE: 
POKE 1536 + K,BYTE:NEXT K : REM DLI FOR LO 
UER CASE LETTERS 

98 DATA 72,169,12,141,18,212,141,22,28 
8, 169, 86, 141, 23, 288, 169, 8, 141,24, 288, 1 
69,226,141,9,212,169 

188 DATA 31,141,8,2,184,64,72,169,224, 
141,18,212,141,9,212,169,36,141,22,288 
,169,198,141,23,288 

118 DATA 169,148,141,24,288,169,8,141, 
8,2,184,64 

128 GRAPHICS 17:P0KE 712,224 

138 REM NUMBER OF SUITS 

14 0 D« = ,, n" :D$C13*=D$:D$ C2* =D* 

158 POSITION 3,4:? «6; D$ : POSITION 3,5: 

?» **6; "enter BEffiOor S" 

168 POSITION 3,6:? «6;"for the nunber" 

:POSITION 3,7:? «6;"of su i t SO" « POSITIO 

N 3,8:? t*6;DS 

178 GET ssi,R:GOSJJB 1168 

188 IF R<58 OR R>52 THEN 128 

198 SUIT5=R-48 : ST=SUIT5 : REM ST IS NUMB 

ER OF EMPTY PARKING SPACES (GOLD STARS 

288 REM DLI FOR L . CASE LETTERS 

218 GRAPHICS 17:POKE 712,12:P0KE 788,3 

6:P0KE 709/198 POKE 711,8 

220 MOUE=l : ER=-1 : PLACE=8 :BL=8:TRUE=1:F 
ALSE=8 : MOUGRP=F ALSE i GRAPH=FALSE I MARK=F 
ALSE 

238 DMA = PEEK€559i : POKE 559 , 8 I 5CR=PEEK c 
88>+PEEKc89i*256 

248 DL = PEEKC568J+256**PEEKC561J :POKE DL 
♦6,134:P0KE DL+9,134 

258 POKE 512,8:P0KE 513,6:P0KE 54286,1 
92 

268 REM INIT & DISPLAY LC LETTERS & ST 
ARS 

278 S=5UITS 

288 IF 5 = 4 THEN A$ = " **** WW I B 

$ = " P t ••:C« = " JklM 

v#xyz":F$ = " a b c d e f 9 h" 



ET 
RK 
UR 
JG 
LB 



HG 
RR 

ZX 



FY 
ML 

PC 

GU 
MR 
UI 

HO 

ON 

GF 
UU 
YJ 
OZ 

LR 
GB 

WM 

DS 
TG 
GX 
JL 

EC 
RD 

TX 

HH 
UU 
RU 
UN 

DD 

KY 

SI 

LN 

XY 

JO 



298 IF 5=4 THEN D$ = " BBBBBBBBBHBBBBB 

388 IF S=4 THEN FL=2 : REM L-COL. OF FIE 
LD 

318 IF 5 = 4 THEN TL = 11 I TR = 14 I REM L . *R . 
COLS. OF TERM 

328 IF 5=4 THEN PL=4 : PR=7 : REM L . &R . CO 
LS. OF PARKING 
338 IF 5=3 THEN A$ = " 
$ = " P t 

wxtf"»FS=" abed 
348 IF 5=3 THEN D$ = " 
358 IF 5=3 THEN FL=4 I TL=12 I TR=14 : PL=6 I 
PR = 8 

368 IF 5=2 THEN A$=" 

p t":C$ = 

$ = " a b c d e f" 

THEN D$ = " BBBBBBBBBBB" 



NUN 

•:C$=" 
e f a" 

BBBBBBBBBBBtr 



BBB" : B 
JK1 



Lki" : B$ = 
jK WX":F 



TL=ll:TR=12:PL=6! 



MARCH 1989 



378 IF 5=2 

388 IF S=2 THEN FL=4 
PR = 7 

398 ? »6;A$:? »6;B$:? «6;C$:? »6;D$:? 
«6;F$ 

488 REM SHUFFLE 
418 LA5TCD=13*SUIT5 

428 FOR I=LA5TCD TO 1 STEP -l:X=INTcl* 
RNDC0JJ+1 

438 TEMCRD$ = CARD* cX, X> »CARD*cX,X*=CARD 

*cl,D «CARD*CI,IJ=TEMCRD«*NEXT I 

448 REM DISPLAY CARDS 

458 FOR R0U=8 TO SUITS+1 

468 POSITION FL,R0U+6 

478 FOR C0L=8 TO SUITS+3 

488 ? «6;CARD*ccSUITS+4>*R0U+C0L+l, cSU 
ITS+4:>*R0U+C0L*1* ;" "J 
498 NEXT COL * NEXT ROU 

588 FILLNU= CCOL1MCROUJ : REM « OF CARDS 

IN FILLED ROUS « BEFORE BOTTOM ROU> 

518 POSITION FL,RQU+6 

528 FOR K=FILLNU+1 TO LA5TCD 

538 ? «6; CARDS cK, K> ; " M l 

548 NEXT K 

558 CDSBOT=LASTCD-FILLNU*REM n OF CARD 

S IN BOTTOM ROU 

568 FOR K=8 TO SUITS+3 

578 IF K<CDSBOT THEN BR cFL*2*K* =8 + SUIT 
S : REM BRcCOLi IS BOTTOM ROU OF COL 
588 IF K> = CDSBOT THEN BR CFL*2*K» = 7 + 5UI 
T5 

598 NEXT K 

688 POKE 559 , DMA : REM TURN ON SCREEN 
618 REM 1ST KEY 

628 X=USRCBAND,PEEKCSCR*12> ,63J :IF X=4 

3 THEN GOSUB 22 ' IF UIN THEN 28888 

625 IF PEEKC764>=255 THEN POKE 77,8:G0 

TO 628:REM DISABLES ATTRACT MODE 

638 GET ttl , KEY : OLDKE Y = KE Y : GOSUB 1160:A 

= KEY 

648 IF 0LDKEY=155 THEN ER=3:G0SUB 1218 
:ER=l:GOTO 620 : REM ER IS ROU OF ERROR 
658 IF A>=74 AND A < =74*SUITS - 1 THEN 88 
8 : REM CARD TO BE MOUED IS FROM PARKING 
668 IF A = 84 THEN GOSUB 2368 * IF ERO-1 
THEN ER=-l:GOTO 628 

678 IF A=84 AND MOUGRP=F ALSE THEN POSI 
TION TR+2,l:? «6 ; "D" * MOUGRP=TRUE : GOTO 
628 

continued on next page 
27 



TI 

FR 
XG 

mq 



DU 



RL 



Of) 
NJ 



RF 

AN 
GU 



DU 

ID 

AM 
IN 



YE 
JT 
ZG 

MS 

NU 

FZ 
EY 
DU 



YR 

nz 

OC 



DM 
til 



MU 



IC 

BM 
UY 

LS 

QD 

KG 

VG 

GF 
EF 
KJ 
SF 

no 

BP 
QX 

BU 
JU 
JP 

AN 

GU 
DU 
XN 

LS 
BC 
GB 
OB 

28 



686 IF A = 84 AND IIOUGRP THEN POSITION T 
R+2,l:? »6 ;"t":MOUGRP = FALSEsGOTO 629 
696 IF A=27 THEN CLR :GOTO 26 
768 IF A=88 THEN GOSUB 1188:G0T0 626 
718 IF A = 32 AND MOUEOl THEN GOSUB 192 
IONS™ 620SREM RESTORES PREUIOUS POSIT 

726 IF cfl>=87 AND A<=98+SUITS-4> THEN 
B=g^gOLBgA-87+TL:ER=2: GOSUB 1218:ER=-1 

738 IF CA<65 OR A > C77+SUIT5 -4 > i OR cA> 
=C73+SUIT5-4J AND A<=73> THEN ER=3:GGS 
UB 1216 ' E R = ~ 1 : GOTO 626 

748 C0LA=2*cA-65>+FL:REM COLUMN OF CAR 
D TO MOUE cFROn FIELD) 

758 IF CA>=65 AND A<=72+SUITS-4* AND B 
RcC0LA>=5 THEN B=A : COLB=COL A : ER=4 : GOSU 
B 1218 : ER=1 : GOTO 628 

768 R0UA=BRCCQLA> : REM ROU OF CARD TO M 

778 COLOR A+128:PL0T COLA, 4 

788 LOCATE CQL A , ROUA , CODE A : REM CODEA I 

S^ATASCII FOR CARD TO BE MOUED cFROM F 

796 GOTO 850-.REM GET 2ND KEY 

886 C0LA=A-74+FL+2 '• ROMA =6 : REM COLUMN A 

ND ROU OF CARD TO MOUE cFROM PARKING' 

818 LOCATE COL A , ROUA , CODE A 

828 IF CA>=74 AND A < =77+SUITS -4» AND C 

0DEA = 42 THEN B = A : COLB = A - 74 + PL : ER = 2 : GOS 

UB 1216 : ER=-1 : GOTO 626 

838 COLOR A+128.PL0T COLA, 2 

846 REM 2ND KEY 

858 IF PEEKC764>=255 THEN POKE 77,8:GQ 
TO 856 

866 GET *tl,KEY:OLDKEY = KEY:GOSUB 1168:B 
= KEY 

878 IF 0LDKEY=155 THEN ER=3:G0SUB 1218 
>ER=-HGOTO 628 

888 IF B=27 THEN CLR :GOTO 28 
696 IF B=88 THEN GOSUB 1186 i GOTO 858 
988 IF B=84 AND MOUGRP THEN POSITION T 
R+2,l:? t*6;"t-*:M0UGRP = FAL5E:C0L0R A + 32 
:PLOT C0LA,4'G0T0 628 

918 IF B=84 AND MOUGRP=F ALSE THEN ER=1 
I COLB = TR + 2 : GOSUB 1218 : ER = - 1 : GOTO 858 
928 S=4-SUITS 

938 IF B<65 OR cfl>77-S AND B<87) OR B> 
98;S OR CB>=73-S AND B<=73> THEN ER = 3: 
GOSUO 1216 : ER=-1 : GOTO 858 

948 IF B= A AND CB>=65 AND B<=72"5J THE 
N COLOR A+32'PLOT C0LA,4:G0T0 626 
956 IF B = A AND CB>=74 AND B<=74+SUIT5- 
13 THEN COLOR A+32:PL0T COLA,2:GOTO 62 
6 

968 IF CA>=74 AND A < =77+SUIT5 -4> AND c 
B>=74 AND B<=77+5UITS-4J THEN C0LB=B~7 
4 + PL : ER=2 : GOSUB 1218 : ER= - 1 r GOTO 858 
978 IF MOUGRP THEN GOSUB 2388 : IF ER=-1 
THEN 628 

986 IF MOUGRP THEN ER=-l:GOTO 858 

998 IF CB>=65 AND 6<=72> AND A>=65 AND 

A<=72 THEN GOSUB 1388 
1888 IF CB>=74 AND B<=77> AND A>=65 AN 
D A<=72 THEN GOSUB 1438 

1816 IF CB>=87 AND B<=98> AND A>=65 AN 
D A<=72 THEN GOSUB 1558 

1828 IF CB>=65 AND B<=72* AND CA>=74 A 

ND A<=77> THEN GOSUB 1688 

1838 IF CB>=87 AND B<=96> AND cA>=74 A 

ND A<=77> THEN GOSUB 1748 

1846 IF ER=-1 THEN 626 

1656 IF ERO-1 THEN ER=-1 : GOTO 858 

1866 REM MARKS POSITION 

1878 PLACE = PLACE + l:IF PLACEM8 THEN PL 
ACE=18:REM CAN MARK TEN PLACES ONLY 
1888 MARKcPLACE* =MOUE : MARK=F ALSE 
1698 RETURN 

1186 IF MARK THEN MARK=FALSE* POSITION 
FL*H? »6 i "P" s RETURN 
1118 MARK= TRUE 

1128 POSITION FL,l:? »6 ; "DB" 

1138 SOUND 8, 186, 16, 12 : FOR K=l TO 168: 

NEXT KsSOUND 8,8,8,6 

1148 RETURN 

1158 REM LOUER & INU TO UPPER CASE 
1168 IF KEY>=128 THEN KE Y=KE Y - 128 
1178 IF PEEKc?82>=6 AND KEY>96 THEN KE 
Y=KEY-32 

1188 POKE 782,64:P0KE 694,6 

1198 RETURN 

1286 REM PLOT ERRORS 

1218 IF ER<>3 THEN EC=COLB: BLINKS =CHR$ 



BT 

ZN 
UF 
QR 

QQ 

OY 

LT 

RU 

CH 
IF 
CK 

SR 



ZM 
ZR 
UZ 
QL 

CF 
PS 



UU 
JA 
QS 
QX 
RZ 
CU 



JL 

SR 

UH 
SF 
BL 
SL 
DD 
AS 
QY 
KK 

IX 



OK 

JN 
EH 
CN 
IL 
CQ 

SX 



zs 

DI 
UF 
RQ 
AJ 
XA 
FP 
DE 
AT 
UG 
UU 
SI 
MA 

MD 
UN 
AO 
FR 
DG 
AU 
JC 
UY 
XK 



HU 
SO 



CB+32J 

1226 IF ER=3 THEN EC=8 : BLINK$=D$ ' REM L 
INE BETUEEN LETTERS 
1236 FOR K=6 TO 6 
1248 POSITION ECER 
1258 IF ER=3 THEN ? »6 ; » 

1268 IF ER<>3 THEN ? «6;" 

1278 FOR J=l TO 28:NEXT J:POSITION EC, 

ER:? *S6;BLINK* 

1288 FOR L = l TO 28:NEXT L : NEXT K'.RETUR 
N 

1296 REM FIELD TO FIELD 

1368 C0LB = 2*CB-65> +FL 

1318 LOCATE COLB , BR CCOLB* , CODEB 

1326 IF CNCCODEB) <>CNCC0DEA>+1 AND BR c 

C0LBSO5 THEN ER = 4:G05UB 1216:RETURN 

1336 KG=CNcCODEA) :IF cKG=13 OR KG=26 0 

R KG=39> AND CN cCODEBi =KG+1 THEN ER=4' 

GOSUB 1218 t RETURN 

1348 R0UB=BRCC0LB>+1 

1358 POSITION COLA, ROUA:? »6 ; » 

1368 COLOR CODEA : PLOT COLB,ROUB 

1378 BRCC0LA3=BR€C0LA1 -1 i BR CCOLB' =BR CC 

OLBi+1 

1388 COLOR A+32:PL0T COLA, 4 

1396 IF BR€C0LA3=5 THEN BL=BL+1 : REM 5 

15 THE TOP ROU OF FIELD, BL IS NUMBER 
OF BLANK CEMPTYJ COLOMNS 

1488 IF BRcC0LB>=6 THEN BL=BL -1 

1418 GOSUB 1848:RETURN 

1428 REM FIELD TO PARKING 

1438 C0LB=B-74+PL:R0UB=8 

1446 LOCATE COLB , ROUB , CODEB 

1458 AA=CNCC0DEA) :IF AA=1 OR AA=14 OR 

AA = 27 OR AA = 46 OR C0DEBO42 THEN ER = 2: 

GOSUB 1216:RETURN 

1466 ST=ST-l:REM U OF EMPTY PARKING SP 
ACES 

1476 POSITION COLA, ROUA:? «6; COLOR 

CODEA 

1486 COLOR CODEA:PLOT COLB, ROUB 
1496 BRCC0LA>=BRCC0LA> -1 
1566 COLOR A+32:PL0T COLA, 4 
1518 IF BRCC0LA>=5 THEN BL=BL+1 
1528 GOSUB 1848 
1536 RETURN 

1546 REM FIELD TO TERMINAL 

1556 C0LB=B-87+TL: ROUB =8 : LOCATE COLB,R 

OUB, CODEB 

1568 AA=CN€CODEA) : IF CAA=1 OR AA=14 OR 
AA=27 OR AA=46> AND C0DEB=18 THEN GOS 
UB 1478:RETURN 

1578 IF (CNcCODEBi OCNCCODEA1 -11 OR CO 
DEB=18 THEN ER=2:G0SUB 1210 : RETURN 
1586 GOSUB 1476:RETURN 
1596 REM PARKING TO FIELD 

16 88 C0LB = 2*cB-65> +FL 

1618 LOCATE COLB , BR CC0LB> , CODEB 

1626 IF CNCCODEB>OCNCCODEA>+1 AND BR c 

C0LB»<>5 THEN ER=4 : GOSUB 1216:RETURN 

1638 KG=CNCC0DEA1 :IF cKG=13 OR KG=26 0 

R KG=39i AND CN c CODEB* =KG+ 1 THEN ER=4: 

GOSUB 1218:RETURN 

1648 ROUB = BR cCOLB>+l 

1656 POSITION COLA, 6:? tt6;"*" 

1668 COLOR CODEA:PLOT COLB, ROUB 

1676 BRCC0LB>=BRCC0LB>+1 

1688 COLOR A+32«PL0T COLA, 2 

1696 IF BRCC0LB>=6 THEN BL=BL-1 

1768 ST=ST+1 

1718 GOSUB 1848 

1726 RETURN 

1736 REM PARKING TO TERMINAL 

1746 C0LB=B-87+TL:R0UB=8 

1758 LOCATE COLB , ROUB , CODEB 

1766 IF CNCCODEB* <>CNcCODEA> -1 OR CODE 

B = 16 THEN ER = 2:G0SUB 1218 * RETURN 

1778 POSITION COLA, ROUA:? «6 ; 

1788 COLOR CODEA » PLOT COLB, ROUB 

1798 COLOR A+32:PL0T COLA, 2 

1886 ST=ST+1 

1816 GOSUB 1848 

1826 RETURN 

1838 REM RECORD OF MOUES 

1846 SOUND 8,188,18,12:M=M0UE 

1856 CRDREMecM,M>=CHR$cCODEA> :BEFCOL$c 

M,M>=CHR*CC0LA> >BEFROU*cM,M>=CHR$cROUA 

1868 AFTCOL«cM,Mi=CHR$€COLB> : AFT ROUS CM 
,M>=CHRS c ROUB* 

1878 FOR K=l TO 18:NEXT K:SOUND 8,8,6, 
8 
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1880 IF MARK THEN G05UB 1876 • POSITION 
FL,1:? »6;"P" 

1890 M0UE=M0UE+1 : IF M0UE>388 THEN MOUE 
= 380 : REM CAN RECORD 300 M0UE5 
1900 RETURN 

1910 REM RESTORE PREUIOUS POSITION 
1920 M0UE=M0UE-1 : M=MOUE : MflRK=FAL5E I P05 
ITION FL,1:? n*;"?" 

1930 BR=A5C cBEFROUS CM, M> i : BC= ASC cBEFCO 

L$cM,M>> :REM BR IS BEFORE ROW 

1940 AR=ASCCAFTR0U$CM,M>> i AC= ASC c AFTCO 

L$cM,Mi* :CR=ASCCCRDREM$CM,M>> 

1950 IF BR>=6 AND AR>=6 THEN GOSUB 203 

8 * REM FIELD TO FIELD 

1960 IF BR>=6 AND CAR = 0 AND cAC>=PL AN 
D AC<=PR>> THEN ST AR=42 : GOSUB 2130 
1970 IF CBR=0 AND CBC>=PL AND BC<=PR>> 

AND AR>=6 THEN GOSUB 2200 
1980 IF CBR=0 AND cBC>=PL AND BC<=PR>> 

AND CAR = 0 AND €AO = TL AND AC< = TR>> TH 
EN GOSUB 2270 

1990 IF BR>=6 AND cAR=0 AND cAC>=TL AN 

D AC<=TRn THEN GOSUB 2300 

2000 IF MARKcPLACE) =MOUE THEN GOSUB 11 

20 :MARKCPLACE1=0 » PL ACE = PL ACE - 1 : POSITIO 

N FL,1:? »6;"P" 

2010 RETURN 

2020 REM RESTORE FIELD TO FIELD 

2030 POSITION AC , AR ' ? »6;" 

2040 COLOR CR:PLOT BC * BR 

2050 BRCBC>=BRCBC>+1:BRCAC>=BRCAC>-1 

2060 LOCATE AC , AR+1 , CODECH 

2070 IF CODECH <> 32 AND BR = 6 THEN BL = BL 

-1 

2080 IF CODECH < > 32 THEN AR=AR+1:BR=BR+ 
1 : CR=CODECH : GOTO 2030:REM GROUP MOUES 
2090 IF BRCBC>=6 THEN BL=BL - 1 
2100 IF BRCAC>=5 THEN BL=BL+1 
2110 RETURN 

2120 REM RESTORE PARKING TO FIELD 

2130 COLOR STAR ' PLOT ACAR 

2140 COLOR CR'PLOT BC * BR 

2150 BRCBC>=BRCBC>+1 

2160 IF BRCBC>=6 THEN BL=BL - 1 

2170 ST=ST+1 

2180 RETURN 

2190 REM RESTORE FIELD TO PARKING 

2200 POSITION ACAR:? «6 ; " 

2210 COLOR CR PLOT BCBR 

2220 BRCAC>=BRCAC> -1 

2230 IF BRCAC>=5 THEN BL=BL+1 

2240 ST=5T-1 

2250 RETURN 

2260 REM RESTORE TERMINAL TO PARKING 
2270 COLOR ASCcUNSHUFScCNcCR) -l,CNcCR> 
-1>>.'PL0T AC,AR:COLOR CR:PLOT BC,BR:5T 
= ST-1 

2280 RETURN 

2290 REM RESTORE TERMINAL TO FIELD 
2300 IF CNCCR)=1 OR CNcCR>=14 OR CNCCR 
3=27 OR CNcCR>=40 THEN COLOR 10 ' PLOT A 
C,AR:GOTO 2320 

2310 COLOR ASCCUNSHUF$CCNCCR> -l,CNcCR> 
-ll> :PLOT ACAR 

2320 BRCBC>=BRCBC>+1:IF BRcBC>=6 THEN 
BL=BL - 1 

2330 COLOR CR:PLOT BCBR 

2340 RETURN 

2350 REM GROUP MOUE 

2360 IF BL+ST<1 THEN ER=1 : C0LB=TR+2 : B= 
116-32:G0SUB 1210 
2370 RETURN 

2380 IF B>=74 AND B < =74+SUITS -1 THEN C 

0LB=B-74+PL : ER=2 i GOSUO 1210 : RETURN 

2390 IF B>=87 AND B < =87+SUIT5 - 1 THEN C 

0LB = B-87 + TL : ER = 2 « GOSUB 1218 : RETURN 

2400 C0LB=2*cB-65>+FL 

2410 LOCATE COLB , BR cCGLB* , CODED 

2420 GOSUB 2480:REM DETERMINES NUMBER 

OF CARDS TO BE MOUED 

2430 IF C0DEBO32 THEN GOSUB 2640 
2440 IF ER=-1 AND C0DEB=32 THEN GOSUB 
2780 

2450 IF ER=-1 AND C0DEBO32 AND GRAPH 
THEN 60SUB 2780 
2460 RETURN 

2470 REM n OF CARDS TO MOUE 

2480 J=l : GRPROU=ROUA i TEMCOD=CODE A 

2490 LOCATE COL A , GRPROU- 1 , CODEG : L AST J= 

J 

2500 IF CNCC0DEG)=CNCTEMC0D>+1 THEN J= 

J+l : TEMC0D=C0DEG I GRPROU= GRPROU- 1 

2510 IF J=l THEN ER=4 « COLB=COL A i B= A+12 



NU 

KX 
UU 



GU 
FO 

NO 

AZ 

ES 

IP 

LL 

DS 
MS 
RH 
QV 

FU 

HX 

5P 

SD 

ZR 

UP 

HO 

HT 

OU 



EO 
BG 
CJ 
CY 
FG 

GS 

GQ 
BY 
LL 
DX 

TE 
HU 

CY 

UU 
BR 
ZU 



CM 

PS 

RE 
XO 



8-32-G05UB 1210 « RETURN 

2520 IF C0DEBO32 AND LASTJ<J THEN 249 
0 

2530 IF C0DEBO32 THEN RETURN 

2540 IF C0DEB=32 AND J=LASTJ THEN LOCA 

TE COLA, GRPROU, CODEG '• LOCATE COLA,GRPRO 

W1,C0DEH:IF C0DEHO32 THEN RETURN 

2550 IF C0DEB=32 AND C0DEH=32 THEN ER= 

4 : C0DEH=-1 : GOSUB 1210:RETURN 

2560 IF BL=1 AND ST=0 THEN ER=4 • GOSUB 

1210 i RETURN 

2570 IF BL=1 AND J<ST+1 THEN 2490 
2580 IF BL=2 AND J<2+2*ST THEN 2490 
2590 IF BL=3 AND 5T=0 AND J<4 THEN 249 
0 

2600 IF €CBL=3 AND 5T = 1> OR cBL=4 AND 
ST=0u AND J<7 THEN 2490 

2610 IF CCBL>=3 AND ST>=2> OR cBL>=4 A 

ND ST > =13 OR BL>=5> AND J < 12 THEN 2490 

2620 LASTJ=J:GOTO 2540 

2630 REM GROUP MOUE FOR C0DEBO32 

2640 LOCATE COL A , GRPROU, CODEG 

2650 IF CNcCODEB* <>CNcCODEG*+l THEN ER 

=4:G0SUB 1210:RETURN 

2668 IF BL=0 AND J<=ST+1 THEN GRAPH=TR 
UE ' RETURN 

2670 IF BL+5T=1 AND J=2 THEN GRAPH=TRU 
E : RETURN 

2680 IF CCBL=1 AND 5T=1J OR cBL=2 AND 
ST = 01> AND J<=4 THEN GRAPH = TRUE I RETURN 
2690 IF CBL=1 AND 5T=2J AND J<=6 THEN 
GRAPH=TRUE: RETURN 

2700 IF ccBL=2 AND ST=1> OR cBL=3 AND 
5T=0>1 AND J<=7 THEN GRAPH=TRUE i RETURN 
2710 IF CBL=1 AND ST=3J AND J<=8 THEN 
GRAPH=TRUE* RETURN 

2720 IF CBL=1 AND ST=4J AND J<=10 THEN 

GRAPH=TRUE: RETURN 
2730 IF CBL=2 AND ST=2> AND J<=11 THEN 

GRAPH = TRUE '• RETURN 
2740 IF ccBL>=3 AND ST>=1> OR cBL>=4 A 
ND ST>=0Ji AND J<=11 THEN GRAPH = TRUE : R 
ETURN 

2750 GRAPH=FALSE:ER=4:G05UB 1210 

2760 RETURN 

2770 REM MOUES GROUP 

2780 FOR L=0 TO J-l 

2790 POSITION COL A , GRPROU+L : ? »6 ; " : P 

=CNCTEMC0D1 : ROUB=BR cCOL B» +1 

2800 COLOR ASC CUN5HUF* CP-L, P-D) :PLOT 

COLB, ROUB+L 

2810 NEXT L 

2820 COLOR A+32:PL0T COLA, 4 

2830 POSITION TR+2.1:? «6; M t M 

2 84 0 BRCC0LA>=BRCC0LA>-J:BRCC0LB>=BRCC 

OLBi+J 

2850 IF BR€C0LA>=5 THEN BL=BL+1 

2860 IF C0DEB=32 THEN BL=BL - 1 

2870 ROUA=GRPROU:CODEA=CODEG:GOSUB 184 

0 

2880 MOUGRP=FALSE : GRAPH=FALSE 
2890 RETURN 

20000 GRAPHICS 18:P0KE 712, 66 ' POSITION 

6,4:? «6 ;"UINNER" : POSITION 8,5:? «6 ; 
IN" 

20010 POSITION 6,7:? »6;M0UE;" MOUES'*: 
POKE 764,255 

20020 POKE 708, PEEKC203 : X=USR CBAND, PEE 
Kc20*,63> : SOUND 0,X,14,14 
28830 IF PEEKC7641=255 THEN 20020 
20048 POKE 764,255:S0UND 0,0,O,0:CLR i 
GOTO 20 
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LL 
UI 
FJ 
OP 
EU 

IJ 
PR 

UO 

RD 

PY 
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10 REM BAKER SOLITAIRE 
20 REM BY TOM CLINE 

30 REM (c> 1985,1987 ANTIC PUBLISHING 
35 REM (CREATES LINES 45*501 
40 REM CLINES 10-250 MAY BE USED UITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY.) 
60 DIM FN$ C28) , TEMPS c28> , AR5 c93> : DPL=P 
EEKC18592J : POKE 10592,255 

70 FN$="D : LINES . LST" 'REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
80 ? "RHiSk or fflasse tt e?" ; : POKE 764,25 
5 

90 IF NOT CPEEKC764>=18 OR PEEKc764>= 
58> THEN 90 

continued on next page 
29 



180 IF PE 
118 POKE 
TIC'S GEN 
126 ? , "B 
130 POKE 
140 ? :? 
se stand 
150 RESTO 
C = l 

160 AR$ = " 
170 FOR X 
2,255 
180 LM=LM 
wn. . . T-"; 
198 A$cC, 
l:NEXT X: 
200 IF PE 
MANY DATA 
E ! s END 
210 IF C< 
LINES!"* 
220 IF FN 



EKc?64i=18 THEN FN$="C:" 
764, 255 : GRAPHICS 0:? •■ AN AR 

ERIC BASIC LOADER" PU 
Y CHARLES JACKSON" AL 
10592, DPL : TRAP 200 

:? "Creating ";FN$:? "...plea IS 
by." TM 
RE • READ LN • LM=LN : DIM A$ cLN> : 

" : READ AR$ NO 
= 1 TO LEN c AR$> STEP 3:P0KE 75 

l:POSITION 10,10:? "(Countdo LZ 
INTCLM'101 ;"> 

C>=CHR$ CUAL cfiRS CX , X + 2J > 3 : C = C + 
GOTO 160 HU 
EKC195J=5 THEN ? :? :? "QTOO 
LINES!":? "CANNOT CREATE FIL 

GI 

LN + 1 THEN ? >? "QTOO FEU DATA 
? "CANNOT CREATE FILE ! " : END 
«="C:" THEN ? :? " Prepare ca IX 



ssette, press (RETURN! 
230 OPEN ttl,8,0,FN$ 

240 POKE 766,1:? *l;A$;:POKE 766,0 

250 CLOSE ttl : GRAPHICS 0:? "■aiDQOBBSOtlGQH 
it 

1000 DATA 156 

1010 DATA 0520530320660650780360610341 

04170169255133212133213184037213133213 

104037212133212202208243896 

1820 DATA 0340588660658788688618658688 

8204 6066065878836841832155853048832 667 

86 568266 86 36861634 865858051 

1636 DATA 8528536546558568576848746818 

75897618819826021022023024025116106113 

107193178179180181182183184 

1646 DATA 1852122822892832251461471481 

4915015115215324423424123 5034058685678 

68 36 72 6858768368616676656 82 

1656 DATA 6686368586826698778326688698 

6787583287967683268 5 6 7888 3872885878 878 

6766696688328676656826688 83 

1866 DATA 155 
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LISTING 1 



Don't type the 
TYPO II Codes! 



IB 
ZU 
OH 

DI 
BX 

NU 
AP 

UC 
RY 

HR 
WO 
YY 
YJ 

LM 

QL 



YE 
ZR 



OA 
UJ 



KA 
01 



IM 
DZ 
ZO 
WF 



18 REM RANDOM ATARI 

28 REM BY DAUID McINTOSH 

38 REM ccH988, ANTIC PUBLISHING 

168 X=12345 : GOSUB 20000 

110 FOR 1=1 TO 20>GOSUB 28268:? I,X:NE 
XT I 
128 END 

28688 REM SET UP RANDOM NUMBER GENERAT 
OR 

28818 DIM XScl) , X c8> : X c8i = ADR cX$> +1 

20626 POKE 284 , INT cX c8> '256> : POKE 283, 

X c 6 ) -256*INT cX ce> '256> 

26638 REM USER HAS PRESET X TO 

28048 REM EITHER 8 FOR A RANDOM SEED, 

20656 REM OR THE REQUIRED SEED UALUE 

26868 IF X<=8 THEN X=1+INT c65536*RND c8 

>>+32768*INTc65536*RNDc8>> :GOTO 26868 

26865 IF X>2147483648 THEN X=214748364 

8 

26678 XC8)=INT€X) :FOR X=288 TO 285 STE 
P -l:POKE X,INTCXC81-256*»INTCXC6»^256> 
J :XC0>=INTCXC03 /256J :NEXT X 
26888 X c 6) =ADR c**hha[€hnOhd[!]hnHJhhDrJLUmLUn 
HBP3BH ** J 

26698 X=ADRC"B affli»annijaaiBaffl6DiJBDiH9]W6NW 

Bnn0HBfil6"BHaFBF t HHHHynB ,, > 
28188 X=U5R(X£Li,X, 1536,85* 

28128 x=adrc "cim* wished i namzB&mFUBmGiHema 
raBfflaB»HBriEiBrjiafflawHHBBBa?BiaQBiaB[a a? mmm 

26138 X=USRcXc8> ,X,1621,85> 

2614 8 X = ADRc"OIJaa»aBiaHa 00 bkbbbbbbdis d 

m BizinQeefflCQmsizQcaBBaismsaBQBffiaisam wi wm 

10HE i naraSBffl6HBBO£" > 

26158 X=USRcX c8> ,X,1786,88> 

28168 RETURN 

28288 REM GET NEXT RANDOM NUMBER 

28218 x=usrcadrc - haaaoaBeiBasaoEiajciBflaiBa 

BOBQKS Bfita >0«a]@SHliBHE] E0 OtAS" J J : X = X c0i : 
RETURN 



LISTING 2 



BW 


18 


ZU 


28 


FJ 


36 


GC 


35 




8, 


EU 


46 




OT 


IJ 


56 


PR 


68 



28148 AND 28218 FOR RANDOM. BAS 



2812 



EEKC185923 : POKE 16592,255 



AR$ C93> 



IV. » 
: DPL = P 



30 



UO 78 FN$="D:LINES.LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 

RD 66 ? "HrOisK or Bassette?" ; « POKE 764,25 
5 

PY 98 IF NOT CPEEKC764»=18 OR PEEKc764>= 

581 THEN 98 
TH 168 IF PEEKC764>=18 THEN FN$="C:" 
UB 118 POKE 764, 255 : GRAPHICS 6:? " AN 

TIC'S GENERIC BASIC LOADER" 
MY 128 ? ,"BY CHARLES JACKSON" 
KB 136 POKE 10592, DPI. : TRAP 288 
PU 146 ? :? :? "Creating ";FN$:? "...Plea 

se stand by." 
LH 158 RESTORE I READ LN : LM = LN : DIM AS CLN» : 

C = l 

BQ 168 AR$ = READ AR$ 

YC 178 FOR X = l TO LEN CARS) STEP 3:P0KE 75 
2,255 

DM 186 LM=LM1 : POSITION 18,16:? "(Countdo 

wn. . .T-";INTCLM'18» j"> 
BK 198 A$cC,C>=CHR$cUALcAR$cX,X + 2:»>> :C = C + 

l:NEXT X:GOTO 168 
MM 288 IF PEEKC195>=5 THEN ? :? :? "QTOO 

MANY DATA LINES!":? "CANNOT CREATE FIL 

E ! " : END 

CM 218 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " l END 
UQ 228 IF FN$="C:" THEN ? :? " Prepare ca 

ssette, press cRETURNi" 
AR 238 OPEN «1,8,6,FN$ 

PU 248 POKE 766,1:? ttl;A$;:POKE 766,0 

AL 250 CLOSE ttl : GRAPHICS 0:? "BHfflKMiafiaBB 

IP 1000 DATA 426 

DC 1010 DATA 0500488486566488328886488488 

41061065068082840034104104133213104133 

212104133215104133214104104 
XU 1020 DATA 1681361772121452141368162498 

96834641155050848048057048032088861665 

868882848834160032169000162 
01 1030 DATA 0081492242822082511628686248 

54224202208251162884024054210282288251 

144816032049006162004144009 
YG 1040 DATA 1812241858881492242822882451 

36288219896824162664181228117212149228 

282208247896169886133224666 
PS 1658 DATA 2291628858542232822882518782 

29160004185228888121224888834041155850 

04884 9658648832688861665868 
FL 1866 DATA 8820400341532288881362882441 

65224185888133228886229838228070229165 

2282488211812321332321688 63 
SK 1878 DATA 1690001212288681532288881362 

8824516966824 6223696166888169063145203 

169000200145203032212006032 
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JB 
LU 
HS 
WU 
JT 
RU 
HJ 



1688 DATA 2226861652282468841606612888 

33832212866632222686165228248664166681 

28 88 3116 86 8 6 834641155858848 

1898 DATA 8496528486328888618658686828 

48834177263178282138145283288217832212 

8 66632222 686165228818818818 

1188 DATA 6161452836322128868322228861 

77263624161228145263266192886268224 896 

162864181228149212282288249 

1118 DATA 8961698881332288322418666322 

4188663284 9886165228185888133228624162 

685654227282268251896834841 

1128 DATA 1556588486568498488328888616 

85883882648665668882848834184169823133 

219169172133226169218133221 

1136 DATA 1691261332221626641812641492 

12262288249832666886632662666162864181 

228149284282288249832241886 

1148 DATA 8321296668966348416418586886 

6188864884 8841658 88266 9884 8 85 88287 8832 

155 



LISTING 3 



18 ; 

28 ; 

38 ; 

48 

58 

66 

76 

86 

96 

8188 
8118 
8126 
8138 
8148 
8158 
8155 
8166 
8178 
8188 
6185 
8198 
8288 
8218 
8228 
8225 
6236 
6248 
8258 
6255 
6266 
6278 
6286 
6285 
8298 
8368 
6318 
8315 
8328 
8338 
8348 
8345 
8358 
6368 
8365 
8378 
8375 
8388 
8396 
8395 
8488 
8418 
8415 
8428 
8438 
8448 
8445 
8458 
8468 
8465 
8478 
8475 
8488 
8498 
8568 
8585 
8587 
8518 
8528 
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RANDOM ATARI, SOURCE CODE 
BY DAUID McINTOSH 
cc>1988, ANTIC PUBLISHING 
$6486 



RND1 



PLA 

LDA »23 

STA 219 

LDA »172 

STA 226 

LDA »218 

STA 221 

LDA «126 

STA 222 

LDX U4 

L 

LDA 284, X 

STA 212, X 
DEX 

BNE RND1 

JSR MULT 

JSR M0D231M1 

LDX «4 

t 

LDA 228, X 

STA 264, X 
DEX 

BNE RND2 

JSR ROT ATL 

JSR BTOD 
RTS 



*= 1536 
; MULTIPLY FR6 BY FRE GIUING FR1 
MULT 



RND2 



ML 1 



LDY «32 

LDA «6 

LDX »8 

STA 224, 
DEX 

BNE ML1 



; 

ML2 



Rl 



R2 



MLA 



LDX na 
CLC 

ROL 224, X 
DEX 

BNE Rl 

LDX «4 

CLC 

ROL 218, X 
DEX 

BNE R2 

BCC ML3 

JSR ADDER 
LDX «4 

BCC ML3 

LDA 224, X 
ADC «8 



6536 
8546 
8558 
8555 
8566 
8565 
8576 
8575 
6588 
6585 
8598 
8666 
8665 
6616 
6626 
6625 
8638 
8646 
6658 
8668 
8665 
6678 
8675 
6686 
8685 
8696 
8695 
6788 
8716 
8728 
8736 
8735 
8746 
8758 
8755 
6768 
8778 
8786 
8785 
8798 
6866 
6816 
8828 
8825 
6836 
6846 
8856 
6855 
6868 
8878 
8888 
6896 
8988 
6965 
6916 
8928 
8936 
8948 
8945 
8958 
8968 
8976 
6986 
8985 
8998 
1686 
1685 
1816 
1615 
1617 
1828 
1838 
1835 
1848 
1856 
1868 
1878 
1888 
1898 
1695 
1188 
1118 
1128 
1125 
1138 
1148 
1145 
1158 
1155 
1168 
1178 



ML3 



STA 224, X 
DEX 

BNE MLA 



DEY 

BNE ML2 



RTS 

; ADD FR8 TO FR1 
ADDER 

CLC 

LDX «4 
ADDR1 

LDA 228, X 
ADC 212, X 
STA 228, X 
DEX 

BNE ADDR1 
RTS 

;CONUERT 8 BYTES AT FRl 
;T0 MOD 2^31-1 
M0D231M1 

LDA t*6 

STA 224 

ASL 229 

LDX «5 

MODI 

ROL 223, X 
DEX 

BNE MODI 



M0D2 



LSR 229 

LDY »4 

> 

LDA 228, Y 

ADC 224, Y 

STA 228, Y 
DEY 

BNE M0D2 



M0D3 



M0D4 



LDA 
ADC 

I 

STA 
ASL 
ROL 
LSR 
LDA 
BEQ 

ADC 
STA 
LDY 

\ 

LDA 
ADC 
STA 
DEY 
BNE 



224 
«8 

228 
229 
228 
229 
228 
M0D5 

232 
232 
»3 

»0 

228, Y 
228, Y 

M0D4 



LDA «0 
BEQ M0D3 



M0D5 

RTS 

; CONUERT BINARY TO DECIMAL 
BTOD 

LDY **8 

LDA »63 

STA C263>,Y 

LDA tt8 
INY 

STA C283>,Y 

BD1 

JSR MOUE 

JSR MUL18 

LDA 228 

BEQ BD2 

; 

LDY «1 

BNE BD6 



BD2 



JSR MOUE 
JSR MUL18 
LDA 228 
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1180 




BEtt 


BD4 




1455 




1185 










1468 


;MQUE FRl TQ F 


1198 




LD Y 


t*l 




1478 


MOUE 


1288 




BNE 


BD8 




1475 


LDX «4 


1205 










1488 


HUi 


1210 


BD4 








1485 


LDft 228, X 


1 9 1 S 

X £. X O 




LD Y 


**8 




1498 


STft 212* X 


X £ X. o 




LD ft 


(2 03^ 


, Y 


1588 


DEX 


1238 




Tft X 






1518 


BNE MU1 


1 94 0 
X £ *t u 




DEX 






1515 




1950 




TX A 






1528 


RTS 


1 9 a a 

X Z o o 




CTn 
J 1 H 


c 283> 


$ y 


1525 




1 9911 




BNE 


B D 1 




1538 


; MULTIPLY FR0 


X £. f %> 


i 








1548 


; ft SSUMED : FR8 


1 9 A ft 
x ,c o u 










1558 


MUL18 






MOUE 




1555 


LDft «0 


1 99ft 




J5R 


MUL10 




1568 


STft 228 


1 "7 ft ft 
1 O U u 




i no 

l_ V H 


228 




1578 


JSR ROTftTL 


1318 


BD6 








1588 


JSR ROTftTL 


1315 


ft 5L 


A 




1598 


JSR ftDDER 


1 *39 ft 

X O X. tJ 




A5L 


n 




1688 


LDft 228 


1338 




ft 5L 


A 




1618 


ftDC *t8 


134 8 




ftSL 


ft 




1628 


STft 228 


1358 




STft 


c203> 


, Y 


1638 


; FftLL THROUGH 


1 "?fift 




JSR 


MOUE 




1648 


; ROT ft TE LEFT, 


1 "?7ft 




J5R 


HUL18 




1645 


; FROM 227+1 TO 


1 "?ftft 

X o O O 


n n ft 

DUO 








1658 


ROTftTL 


1 ft "s 
X o o o 




LDft 


c203> 


, Y 


1655 


CLC 


1398 




CLC 






1668 


LDX «5 


1488 




ftDC 


228 




1678 


ROTL 


1418 




STft 


C283J 


, Y 


1675 


ROL 227, X 


1428 




INY 






1688 


DEX 


1438 




CPY 


»6 




1698 


BNE ROTL 


1448 




BNE 


BD5 




1695 




1445 


; 








1788 


RTS 


1458 




RT5 
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LISTING 1 



Don't type the 
TYPO II Codes! 



18 REM SIGNBOARD 

12 REM BY ANDREW R. THOMftS 

14 REM cc>1988, ftNTIC PUBLISHING 

16 GOTO 12588 

188 REM CLICK 

118 FOR IT=C1 TO C4:S0UND C0,110-IT,10 

,C2:NEXT IT 

115 SOUND C0,C0,C0,C0 

128 RETURN 

148 REM READ LOOP 

145 TEMPS^"* 

158 FOR IT=C1 TO UftR:REftD UfiRl'TEMPSCl 
T,IT* =CHR$cUftRl» :NEXT IT 
155 RETURN 

168 REM INSUFFICIENT MEMORY 

165 TC=C8 « TR=C8 : GOSUB BPOS : ? " afflSmGDEI 

aosmawasnmiiB]" 1 

178 GOSUB PftUSE 
175 GOSUB BPOS 
188 RETURN 

185 REM GET INSTRUCTION 

198 TRAP 195 « UftR = ftSC cS* cSP, 5Pn : UftRl = U 

ftR-47 s SP = SP + C1 

195 TRAP 48888:RETURN 

288 REM D'L INFO 

285 UAR=DL+R0U«3 ■ U AR1=PEEK cU AR- Cl> : UftR 
2=PEEKCUAR> 
218 RETURN 
220 REM HI'LO 

225 HI=INT cUAR'C256> * L0=UAR-256*HI 
238 RETURN 

258 REM INSERT STEPS 

255 UAR = LENC5*:> : IF SP>UAR THEN RETURN 

268 UARl=UftR-SP+Cl 

265 5$ cUfiR + 5H, UftR+SH* =•• " 

278 IF UARK255 THEN 298 

275 UARl = UARl-255 ■ DUM=USR cftDR cPPMOUE** 
, ADRc5SCSP+UARl,5P+UARl>> -CI, ADRcS*c5P 
+UAR1, SP+UAR1>> -C1 + 5H* 255) 
288 IF UAR1=8 THEN RETURN 
285 GOTO 278 
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UM 298 DUM=USRCADRCPPM0UE*J , ADR CS« cSP , SP> 

) - CI, ADR €5$ CSP, SPJ > -Cl + SH, UARU 
AF 295 RETURN 
YO 388 REM Y'N ? 
EA 385 ITEM=C1 

KD 318 TC=C8:TR=C8:G05UB BPOS*? QMENU*; 

JT 315 IDIS=C5sI$=0MI$:G05UB MENUSEL 

RC 328 TC=C0 « TR=C2 : GOSUB BPOS 

ZS 325 RETURN 

QZ 330 REM SINGLE POINTER 

UF 335 GOSUB 750 

MX 340 IF UAR2=28 OR UftR2=12 THEN RETURN 

00 345 GOTO 335 

UD 350 REM CHAR EQUIUS 

RL 351 TC=C0:TR=C2:GOSUB BPOS 

NN 352 ? "mm ";:F0R IT=C1 TO 26:? CHR$d 

T+64>;:NEXT IT : FOR IT=28 TO 31:? CHR$ C 

27> ;CHR*clT* ; : NEXT IT 
JB 353 ? BB"; 
JR 354 TC=C4:TR=C3:G05UB TPOS 
CN 355 IF PEEKCDCASEJ=LC THEN 358 
PR 356 FOR IT = 33 TO 58:? CHRS cIT> ; : NEXT I 

T : FOR IT = 60 TO 64 * ? CHRS c IT* ; * NEXT IT » 

? " C ; •• ; 
AE 357 RETURN 

JG 358 FOR IT=C1 TO 26:? CHR* clT> ; i NEXT I 
T : FOR IT=28 TO 31*? CHRS C27> ; CHRS clT* ; 
: NEXT IT 

UH 359 ? ••SfifiB Hfi"; 

ZL 360 RETURN 

XR 370 REM ONSCREEN WRITING 
UJ 371 GOSUB 350 

DM 372 OPEN «1 , C4 , 0 , "K : " : POKE 764,255 

UM 373 UAR4=cPEEKcDCA5EJ=UC>*-8+19 

WZ 375 GOSUB 760 

WL 376 POKE 764,UAR2 

OW 377 GET »1,UAR3 

MI 378 IF UAR3 = 27 THEN GET ttl,UAR3 
NG 380 IF UftR3 = 27 THEN CLOSE «1 : ? ••!!••; : RE 
TURN 

ZR 381 IF UAR3<>155 THEN 384 

ANTIC SOFTWARE LIBRARY 



KU 
RK 
VU 
TY 

AL 
UY 

nc 

EZ 

UA 
UL 



YS 
UU 
OS 
IK 
SI 
UX 



SX 
UF 
QS 
ZF 
GE 
II 
UT 

in 

HK 
XK 
IZ 

AC 
IH 
KA 
ZT 
KC 
XB 
UT 

DG 
PF 
UY 
PA 
BI 
OP 

IS 
TP 
YP 
IR 
IU 
LJ 
CS 
NL 
RL 
SP 
ZO 
UG 
LU 
UG 
AM 
YU 
BI 
UD 
GE 

XB 
AA 
RO 

xn 

SR 
QU 

nu 

PB 
HQ 

NE 

UJ 
AN 
UL 
AG 
ZG 
UU 

CI 



382 IF R0U<9 THEN ROU=ROU+Cl « CQL = 8 

383 GOTQ 373 

384 TEXT$="":TEXT$=CHR*CUAR3> 

385 DUn=USR€ADRcTRANS$3 ,ADRcTEXT$>-Cl, 
ADRcTEXT$>-Cl,CH 

386 UAR3=ASCCTEXT*CC1,C1>> 

388 GOSUB DLI:UAR1=UAR2»C256+UAR1+C0L 
396 POKE U AR1 , UAR3 

392 SH = C5:IF SP + SH>SL THEN GOSUB IMEM : 
RETURN 

394 GOSUB IS 

396 S$ CSP, SP + C1* ="83" : S* CSP+C2 , SP+C2* = 
CHR*cROU> : 5$ CSP+C3, 5P+C3J = CHR* cCOD >S* 

CSP+C4, SP+C4»=CHR* CUAR3> 
398 SP=SP+5H 

466 IF C0L<19 THEN COL=COL+Cl 
462 GOTO 373 
416 REH RESET 

411 GOSUB 1358:P0KE DCASE,UC 

412 POKE 283,48:P0KE 284,282:P0KE 265, 
148: POKE 286,70:POKE 287,8:P0KE 268, C6 
:POKE 788,48:P0KE 711,78 

413 POKE 712,6'RETURN 
588 REH UINDOU POS 

516 POKE 656,TR*P0KE 657, TC 
528 RETURN 
538 REM PAUSE 

535 TC=C8:TR=C3'G0SUB TPOS 
548 POKE 764,255 

545 ? '* aMEfflHSHBEfflEMraHfflBGmBarafflOHfflm 
BIB" i 

558 IF PEEKC764i=255 THEN 558 
555 POKE 764,255 

566 TC=C8 : TR=C3 : GOSUB TPOS:? BLANKS CC1 
, 381 j 

565 RETURN 

588 REM TEXT UINDOU POS & BLANK 

585 GOSUB TPOS:? BLANKS ; : GOSUB TPOS 

598 RETURN 

686 REM MENU SELECT 

685 POKE 764,255 

616 TC = ITEM**IDI5 * TR = C8 : GOSUB TPOS:? 

ffl"J 

628 IF PEEKC764K255 THEN 768 
625 IF STICK CC6* < 15 THEN 648 
630 IF NOT STRIGCC63 THEN 746 
635 GOTO 628 

648 IF STICK CC8> < > 7 THEN 668 

645 IF ITEn<LENcl*>-Cl THEN ITEM=ITEM+ 

CI 

658 GOSUB TPOS:? "J 
655 GOTO 675 

668 IF STICKCC8J Oil THEN 628 
665 IF ITEn>C8 THEN ITEn=ITEn-Cl 
678 GOSUB TPOS:? •• , 

675 TC = ITEM«IDIS:GOSUB TPOS:? "BIB"; 

688 GOSUB CLICK:GOTO 628 

788 UAR=PEEKC7643 : POKE 764,255 

782 IF UAR=7 OR UAR=135 THEN 645 

783 IF UAR = 6 OR UAR=134 THEN 665 

784 GOSUB CLICK 

787 IF UAR=12 THEN 748 

718 IF UAR=28 THEN ITEM=-1 : RETURN 

715 IF I$CC1,CH="!" THEN 748 

716 IT=C1 

728 IF I* CIT,IT>=CHR*CUAR> THEN 735 
725 IF IT=LENCIS> THEN 620 
738 IT=IT+Cl:GOTO 728 

735 ITEM = IT C1 : GOSUB TPOS:? "j«TC = IT 

EM*IDIS : GOSUB TPOS:? "HOB"; 

746 IF NOT STRIGcC8> THEN 748 

745 RETURN 

758 REM PTR 

755 POKE 764,255 

768 GOSUB DLI:UAR1=UAR2*C256+UAR1+C0L: 

UAR2=255:UAR3=15 

765 0LDCHAR$=CHR*CPEEKCUAR1>> 

776 POKE UAR1,UAR4 

775 IF PEEKC7641 <255 THEN UAR2=PEEKc76 
4J -POKE 764,255:G0T0 798 

788 IF STICKCC8X15 THEN U AR3=STICK C8> 
GOTO 888 

785 IF NOT 5TRIGCC03 THEN UAR2=12:G0T 
0 876 

786 GOTO 775 

798 IF UAR2 = 28 THEN U AR4 = - CI I GOTO 878 
795 IF UAR2=12 THEN 870 
888 OLDROU=ROU:OLDCOL=COL 
861 GOSUB CLICK 

885 IF CUAR2=6 OR UAR3=1H AND C0L>C6 
THEN COL=COL-Cl : GOTO 858 

818 IF CUAR2=7 OR UAR3=7> AND C0L<19 T 
HEN COL=COL+Cl i GOTO 850 



JG 

JZ 

XU 

UF 

NA 

UY 

KG 

OU 
RK 
OZ 
AH 
IA 
DU 
QC 
FY 

HL 
IY 
MI 

PU 
QJ 

EF 

on 

DE 

DU 
ZU 
RE 

SL 
AJ 
UD 
GL 
JN 
GB 

YC 
ES 
QH 
UO 
QD 
JI 



US 

SH 
SE 
ZP 

RO 
TE 

CP 
AS 

NY 

JQ 

FC 

EJ 



TH 
BU 
AR 
JL 
HC 
GK 
PZ 
HN 

AU 

PF 
JU 



BG 
IE 
RT 
GH 
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815 IF CUAR2=14 OR UAR3=14> AND R0U>C8 

THEN ROM=ROU-Cl : GOTO 856 
820 IF CUAR2=15 OR UAR3=13> AND R0U<9 
THEN ROU = ROU + Cl I GOTO 850 

825 IF UAR3=10 AND CC0L>C8 AND ROU>C0> 

THEN COL=COL-Cl:ROU=ROU-Cl:GOTO 858 
838 IF UAR3=6 AND <C0L<19 AND ROU>C0> 
THEN COL=COL+Cl:ROU=ROU-Cl:GOTO 856 
835 IF UAR3=9 AND cC0L>C8 AND R0U<9> T 
HEN COL=COL-Cl:ROU=ROU+Cl:GOTO 850 
840 IF UAR3=5 AND cC0L<19 AND R0U<9> T 
HEN COL=COL+Cl:ROU=ROU+Cl:GOTO 850 
845 IF NOT €UAR3<15 OR UAR2=6 OR UAR2 
=7 OR UAR2=14 OR UAR2=15> THEN 878 
858 POKE UAR1, ASC CQLDCH ARS CC1 , Cl> > 
865 GOTO 768 

876 POKE UAR1, ASCcOLDCHAR$cCl,Cl>> 

875 RETURN 

986 REM MAIN MENU 

985 ITEn=C8 

918 TC=C8 : TR=C8 : GOSUB BPOS 

915 ? " Blay Bee Sdit (load Save 

Slew EG"; 

928 IDIS=C6:I*=MMI*:G0SUB MENUSEL 
925 IF ITEH=-C1 THEN ITEM^C0 : GOTO 920 
938 ON ITEM+Cl GOSUB 1888,958,16888,13 
688, 13268, 13486, 38886 
935 GOTO 918 
958 REM RECORD 
955 ITEM=C0 

968 TC=C0 : TR=C0 : GOSUB BPOS 
965 ? '* Brite Scroll Bause Option 
Ooad'* 

978 IDIS=8:I*=RMI«:G0SUB MENUSEL 

975 IF ITEM=-C1 THEN ITEn=C8 1 RETURN 

988 ON ITEM+C1 GOSUB 4888,5888,4788,86 

88,9888 

995 GOTO 968 

1888 REM PLAY 

1861 IF NOT LENCS*> THEN RETURN 
1685 POKE 764,255 
1816 5P=C1 : FLAG=C0 : POKE 559,8 
1815 POKE DL + 29 , 65 '• POKE DL + 38 , 216 : POKE 
DL+31, 6 

1020 GOSUB RESET : POKE 559,34 
1025 GOSUB 1058:POKE 77, CO 
1030 IF 5P<LENc5$> THEN 1025 
1035 FOR IT=C1 TO 188:NEXT IT 
1040 IF PEEKC764i=255 THEN 1010 

1044 POKE 559,0:POKE DL + 29 . 66 : POKE DL+ 
30,PEEKC660> :POKE DL+31 , PEEK (661) :POKE 

559, 34 

1045 POKE 764,255:SP=LENCS*>+C1:RETURN 

1856 REM PLAY 1 INSTRUCTION 
1060 GOSUB GI 

1070 ON UAR1 GOSUB 1188,2888,1488,3866 
, 3188 : RETURN 
1166 GOSUB GI 

1116 ON UAR1 GOSUB 1156,1288,1388,1588 
: RETURN 

1156 TEMP* = "[MD@[BB M 

1155 TEXT«=" ":GOSUB GI : TEXTS CU AR , UARl 
■ ■■ 

1166 DUM=USRcADRcppnOUE*> , ADR CS* CSP , SP 

-Cl, ADRcTEXTS) -Cl,UARi 
1165 UAR1= CUAR<25>*UAR+ cUAR>=25>«25 
1178 TEMPS c8> =TEXTS cl, UARli I TEMP* <8 + UA 
Rl) =•• ... 

1175 FOR IT=C1 TO C2 : DUM=USR c ADR CTRANS 

S> , ADR cTEMPS c8> > -CI, ADR cTEHP* c8> > -Cl, U 

ARD : NEXT IT 

1198 5P=SP+UAR 

1195 RETURN 

1288 REM PLACE 

1285 GOSUB GI:UAR2=UAR1 

1218 GOSUB GI:ROU=UAR 

1211 TEMP$ = "fflHI3[§@ IlDEia •• 

1212 TEMPS C12* =STRS CROW* 

1215 ON UAR2 GOSUB 1226 , 1248 , 1278 : RETU 
RN 

1226 GOSUB DLI : TEMPS C13* =•• [iSrdO mSQBHffl 

S@[J]" 

1225 IF UARKLENCTEXTS1 THEN RETURN 
1238 DUM = USR c ADR cPPMOUES) , ADRcTEXTS>-C 
1, UAR2*256+UARl-LENcTEXT$> -Cl, LENcTEXT 
• 1) 

1235 RETURN 

1248 TEMPS cl3*=" QlODBSaaBffl" 
1241 GOSUB GI:COL=UAR 
1245 GOSUB DLI 

continued on next page 
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SQ 

DU 

AU 
UO 

MH 

UE 

BU 
DP 
NU 

IF 

HH 
QT 

GD 
JF 
BI 
XU 



LX 
B5 
KP 

GP 
UK 
QA 



BD 
AD 
OQ 

IF 

GG 
AN 
AC 
MM 



DK 

BG 
SG 
YM 
HU 
JG 
CO 

cn 

UU 
YN 

RT 
RT 

01 
ZL 
GU 

CQ 

SB 
AU 
ZC 
BC 

FD 
UG 
UC 

UU 

BQ 

FX 
HH 

CS 

FZ 
NY 
AU 
TC 

YC 
JO 
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1258 IF UAR1+C0L+LENCTEXTS* >255 THEN R CA 
ETURN 

1255 DUM=U5RcADRcPPM0UESj , ADRcTEXTSj-1 EG 

, UAR2*256+UAR1+C0L-C1,LENCTEXTSJ) UQ 
1266 RETURN 

1278 GOSUB DLI : TEMP* C13* =■■ fflOBfflH [flHHHS JY 

fflasffl" om 

1275 IF UARl+19+LENcTEXTS) >255 THEN RE PS 

TURN PU 

1260 DUM=U5R CADR CPPM0UES3 , ADR CTEXTS* -C DG 
1 , U AR2*256+U AR1+19 , LENcTEXTS) > 

1285 RETURN OR 

1388 REM CLEAR LX 
1385 GOSUB GI : TEMP$ = ,i fg[|[§0ra 

1318 ON UAR1 GOSUB 1368 , 1328 , 1358 : RETU EH 

RN ON 

1328 GOSUB GI:ROU=UAR ZI 

1321 TEMPS cC7* = "(1K1GDH M ! TEMPS C12*=5TRSC iu 
ROUS 

1325 GOSUB DLI 

1330 DUM=USR cADR cpCLEARS) , U AR2) KH 
1335 RETURN 

1358 FOR R0U = C8 TO 9 * GOSUB DLI:DUM = U5R 

cADRcPCLEARS) ,UAR2> :POKE UAR- CI , 117 : NE DS 
XT R0U:R0U=C8 

1355 TEMPS cC7i="raDHiariHH" TA 

1356 RETURN AZ 
1368 GOSUB GI:ROU=UAR:GOSUB GI>COL=UAR MB 

KL 

1365 GOSUB DLI 

1378 POKE UAR2*256+UAR1+C0L, C0 AY 

1375 TEMPS cC7i="[§mmS IDGQS Hfflffl M * TEM DE 

P$C17,17J=5TRSCR0U> i TEMPS c24> =5TRS CCOL EU 

> CP 

1388 RETURN LM 

1488 TEMP*="ffl0[IM§ " PQ 
1485 GOSUB GI:TEMPSCC7»=5TRSCUAR-C1J «I 

F FLAG THEN RETURN PS 
1418 UAR1=INTCCUAR+C1>'C2» :POKE 28,128 
*cC2*UARl-UAR* « POKE 19,255-UARl 

1415 IF PEEKC191 THEN 1415 BS 
1428 RETURN 

1588 TEMP* = "fflKM§E@[ll2] fflBDDOfflffl" JK 

1585 ROU=ASCcSScSP,SP>> : COL= ASC CSS CSP+ EL 
C1,SP+C1>1 :UAR1 = ASCCSSC5P + C2,SP*C2JJ «S 

P=SP+C3 XP 
1518 UAR=DL+R0U*3 : POKE PEEK cU AR> «256+P 

EEKcUAR CU+COL, UAR1 EC 

1515 RETURN BD 

2888 GOSUB GI : TEMPS = "@HHfflIiII " TE 

2828 ON UAR1 GOSUB 2058 , 2300 : RETURN RP 
2058 TEMPS c8>= , 'HQ[Ba 
2868 GOSUB GI'UAR2=UAR1 

2865 GOSUB GI : ROU=UAR : TEMPS cl3> =STRS cR PD 
0U> 

2878 GOSUB GI*DIR=UAR-C1*G0SUB GI:DIST UZ 

= UAR:GOSUB GI 5PEED = UAR UX 

2875 ON UAR2 GOSUB 2108 , 2288 : RETURN AU 

2188 IF DIR=-C1 THEN TEMPSd4*=" [USD" BH 

:GOTO 2118 ZD 

2185 temps ci4) = m raoramo" 

2118 UAR = DL + R0U**C3 : UAR1 = PEEKCUAR-CU : U TR 
AR2=PEEK CUAR) 

2128 FOR IT=C1 TO DIST BU 

2138 UAR1=PEEKCUAR-C1> -DIR EY 

2135 IF UAR1>-C1 AND UARKC256 THEN PO 

KE UAR-C1,UAR1 HQ 

2148 FOR IT1=C1 TO 68 STEP SPEED+C1:NE 

XT IT1 UK 

2158 NEXT IT 

2168 RETURN 

2266 REM U'D ST 

2285 IF DIR=-C1 THEN TEMPSd4*=" fflH" ' G 

OTO 2218 JD 

2286 TEMPS C14J=" rafflQOK]" 
2218 IT=C1 SB 
2228 UAR=DL+R0U*3:UARl=PEEKcUAR-l> :UAR EF 
2=PEEKCUAR> ES 
2225 IF CR0U=C8 AND DIR=-CH OR cR0U=9 UC 

AND DIR=C1> THEN 2270 

2230 UAR3=UAR+3*DIR LE 

2231 DUM=USR€ADRCPCLEARSJ ,PEEKcUAR3>> JU 
2235 POKE UAR, PEEKcUAR3> : POKE UAR3-C1, OD 
UARl:POKE U AR3 , U AR2 x POKE UAR-C1,117 

2240 FOR IT1=C1 TO 60 STEP SPEED+Cl : NE PT 

XT IT1 BX 

2245 ROU=ROU+DIR SS 

2250 IT=IT+Cl:IF IT<=DIST THEN 2220 GB 

2260 RETURN IA 

2270 DUM=USRCADR€PCLEARS) ,UAR2» :POKE U YN 

AR~C1 , 117 s RETURN FO 

2300 TEMPS c8> = ,, BD@H[IEIQ PC 
2305 GOSUB GI ' U AR2=U AR1 



2310 GOSUB GI : DIR=UAR-C1 : GOSUB GI « DIST 
=UAR'GOSUB GI:SPEED=UAR 
2315 ON UAR2 GOSUB 2350 , 2500 : RETURN 
2350 IF DIR=-C1 THEN TEMPS C16> ="HHHO" * 
GOTO 2360 

2355 TEMPS C16>="130HK1S1" 

2360 SCRHS cC4 , C4) =CHRS c238-16*DIR) 

2365 FOR IT=C1 TO DIST 

2370 DUM=USRCADRCSCRHS>1 

2385 FOR IT1=C1 TO 50 STEP 5PEED+C1:NE 
XT IT1 

2396 NEXT IT : RETURN 

2568 UAR=cC3-DIR>^C2:IF DIR=~C1 THEN T 

EMPSci6i= M flJa":G0T0 2518 

2565 TEMPS ci6> s-EHDHJEI" 

2518 FOR IT=C1 TO DIST 

2515 ON UAR GOTO 2528,2536 

2528 UARl=PEEKcDL+27* « DUM=USR c ADR cPCLE 

ARSJ , UAR1> :DUM=U5RCADRCSCRDS1> :POKE DL 

,UARl:POKE DL - CI , 117 : GOTO 2540 

2538 UAR1 = PEEK CDL* i DUM = USR c ADR cPCLE ARS 

> , UAR1> :DUM=USRCADRCSCRUSJ1 : POKE DL+27 

,UARl:POKE DL+26,117 

2548 FOR IT1 = C1 TO 78 STEP SPEED + CHNE 
XT IT1 

2545 NEXT IT 
2556 RETURN 
3660 REM OPTION 

3010 GOSUB GI-.ON UAR1 GOSUB 3050,3070, 

3130, 3150 

3015 RETURN 

3 0 50 TEMPS = »HfflQrail" 

3055 GOSUB GI:POKE DC ASE , UAR : RETURN 
3070 TEMPS = -HQ]Hfflffl 

3075 GOSUB GI \ CA5E=UAR : GOSUB GI 
3080 UAR2=C2+CASE*C7 i TEMPS CC7 , 12> =C ASE 
MENUS CUAR2, UAR2+C5) i UAR2 = INT cUAR'16> 
3090 TEMPSC13,15»=" "• I TEMPS C14> =STRS 

CUAR2) : TEMPS cl6* = TEMP Sd7*=5TRSccU 

AR-UAR2*16> 'C2+C1* 

3095 POKE 203+CASE, UAR : POKE 708+CASE,U 

AR - RETURN 

3100 TEMPS = "ffl[flHm 

3105 GOSUB GI:FILES=SSC5P,5P+UAR-C1> :T 

EMPS CC6, C5+UAR> =FILES : SP = 5P + U AR 

3110 IF FLAG OR PEEKC764><255 THEN RET 

URN 

3120 GOSUB 13040 

3125 RETURN 

3130 TEMPS = »fflHaODia ■■ 

3135 GOSUB GI:CASE = UAR:GOSUB GI * POKE 1 
721,UAR'P0KE 288,CASEHF NOT CASE THE 
N TEMPS c7* ="0109" * RETURN 

3148 UAR = C2+ CCASE-C1**C7 ■ TEMPS c7> =CA5E 
MENUS CUAR, UAR+C6) » RETURN 
3156 REM MISC 

3155 GOSUB GI:ON UAR1 GOSUB 3268 

3166 RETURN 

3288 TEMPS = »HHma 

3285 GOSUB GI : DIR=UAR-1 « GOSUB GI'CASE= 
UAR * GOSUB GI : SPEED = UAR + 1 

3218 IF DIR-C1 THEN TEMPS C6* ="fflfflO ":G0 
TO 3228 

3215 TEMPS C6> ="0121 

3228 UAR2 = C2 + CASE*C7 » TEMPS C18>=CASEMEN 

US CUAR2, UAR2 + C5> : UAR4=203+C ASE 

3225 UAR3=PEEKCUAR4* : COLU AR = INT cU AR3' 1 

61 

3230 UAR2=UAR3-C0LUAR*16:IF CUAR2<C2 A 
ND DIR=-C1> OR cU AR2 > 13 AND DIR=C1> TH 
EN RETURN 

3235 UAR3=UAR3+DIR*C2 : POKE UAR4,UAR3*P 
OKE 708+CASE, UAR3 

3240 FOR IT=C1 TO 30 STEP SPEED : NEXT I 
T > GOTO 3225 
4000 REM URITE 
4010 ITEM=C0 

4020 TC=C0 : TR=C0 » GOSUB BPOS 

4030 ? " Enter ffliace Blear Bnscr 

een" 

4040 IDIS=8:IS=UMIS:G05U0 MENUSEL 
4858 IF ITEM=-C1 THEN ITEM=C0 : RETURN 
4060 ON ITEM+C1 GOSUB 4108,4200,4408,3 
70 

4070 GOTO 4028 
4188 REM U-TEXT 
4118 ? CHRS C125* ; 

4115 TC=C6 : TR=C1 : GOSUB BPOS 

4116 ?" 246882468 8"i 
4126 GOSUB 358 

4125 TC = C8 : TR = C0 GOSUB BPOS 

4126 POKE 752,C0:INPUT TEMPS»POKE 752, 
CI 
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4136 IF LENcTEMP*>=C8 THEN ? CHRS C12S> 
; ' RETURN 

4135 TEXT*=TEMP*:ITEM=C1 

4146 DUM=USRcADRcTRANS*> , ADR CTEXT*> -1 , 
ADRcTEXTS) -CI, LEN cTEMP$> 3 
4158 ? CHR*C125> 
4155 UAR2=LEN cTEXT** 

4166 SH=UAR2+C3'IF SP+SH>SL THEN GOSUB 

IMEM : RETURN 
4165 GOSUB IS 

4178 S* CSP, SP + Cl^'-ee*' : S$ C5P+C2 , 5P+C2* 
= CHR$ CUAR2> 

4175 S$ CSP+C3, SP+C3+UAR2-C1* =TEXT$ i SP = 
SP + SH 

4188 RETURN 
4286 REM U-PLACE 
4285 ITEM=C1 

4218 TC = C8 i TR = C0 : GOSUB BPOS : ? Deft O 
ffscr Onscreen Bight offscr" 

4215 IDIS=13 : I$=MPMI$ : GOSUB MENU5EL 
4228 IF ITEM=-C1 THEN ITEM=C1 : RETURN 

4225 ON ITEM+C1 GOSUB 4236,4286,4338 

4226 GOTO 4218 

4238 UAR4= CPEEKCDCA5E>=UC)*68+C1 : GOSUB 
PTR 

4235 IF UAR4=-C1 THEN RETURN 
4246 GOSUB DLI 

4245 IF UARl-LENcTEXTS) <C8 THEN 4386 
4258 DUM=U5R c ADR CPPM0UE$> ,ADRcTEXT$>-C 
l,PEEKcUAR) **25 6 + U AR1 - LEN CTEXT*> - CI, LEN 
CTEXTSD 

4255 5H=C4:IF SP+SH>SL THEN GOSUB IMEM 
» RETURN 

4256 GOSUB IS 

4268 S$CSP,5P+C2J="818" 

4265 S$CSP+C3,5P+C3>=CHR*CR0U> :SP=5P+5 
H 

4275 RETURN 

4288 IF LENcTEXTSi >28 THEN 4285 

4281 C0L=18-INTCLENCTEXT*J/C2J 

4285 UAR4=52 : GOSUB PTR:IF UAR4=C1 THE 

N RETURN 

4298 GOSUB DLI 

4295 IF UAR1+C0L+LENCTEXT$> >255 THEN 4 
386 

4388 DUM = USR c ADR CPPM0UE$> ,ADR<TEXT$>-C 
1,PEEKCUAR> *C256+U AR1+COL - CI , LENCTEXT* 

J 3 

4385 SH=C5'IF SP+SH>SL THEN GOSUB IMEM 

i RETURN 

4316 GOSUB IS 

4315 5*C5P,SP+C23="811" 

4328 S$C5P + C3,SP + C3>=CHR$CR0U> *5*cSP+C 
4, SP+C4J =CHR$ cCOLi : SP=5P+5H 
4325 RETURN 

4336 UAR4= CPEEKCDCASE> = UO*55 + C4 i GOSUB 
PTR 

4335 IF UAR4=-C1 THEN RETURN 
4348 GOSUB DLI 

4345 IF UAR1 + 19 + LENCTEXT** >255 THEN 43 
8 8 

4358 DUM=U5RcADRcPPM0UE*> , ADR cTEXT*> C 
1, PEEK CUAR>*C2S6+UAR1+19, LEN c TEXT*) > 

4355 SH=C4:IF SP+SH>SL THEN GOSUB IMEM 
RETURN 

4356 GOSUB IS 

4368 S*cSP.SP+2»="812" 

4365 S*CSP + C3,SP + C3>=CHR*CR0U> :SP=SP+5 
H 

4375 RETURN 

4388 TC=C8 t TR=C1 : GOSUB BPOS 

4381 ? " Sorry, text will not fit 
there. 

4382 ? " Try CLEAR i no line. 

•'; 

4383 GOSUB PAUSE 

4384 GOTO 4218 
4488 REM M-CLEAR 
4485 ITEM=C1 

4418 TC=C0 : TR=C8 : GOSUB BPOS 
4415 ? " lhar Dine GQispiay"; 

4428 IDIS=9 : I$=CMI* : GOSUB MENUSEL 
4425 ON ITEM+C1 GOSUB 4588,4435,4455 
4438 IF ITEM=-C1 THEN ITEM = C2 '- RETURN 
4431 GOTO 4418 

4435 UAR4= cPEEK CDC A5E> = LC> *22+C3 I GOSUB 
PTR:IF UAR4=-C1 THEN RETURN 

4436 GOSUB DLI 

4446 DUM=USRCADRCPCLEAR*> , UAR2> 

4441 POKE UAR-C1,117 

4442 SH=C4*IF SP+SH>SL THEN GOSUB IMEM 
I RETURN 

4443 GOSUB IS 
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4445 5*cSP,SP+C2>="821" 

4446 S*CSP+C3,SP+C3>=CHR*CR0U> :5P=5P+5 
H 

4458 RETURN 

4455 TC=C0 : TR=C2 : GOSUB BPOS:? "HnSSOMS 

4456 GOSOB 388 

4459 IF ITEM=-C1 THEN ITEM=C1 : RETURN 
4468 ON ITEM+C1 GOTO 4465,4485 

4465 GOSUB 1356 

4478 SH=C3»IF SP+5H>SL THEN GOSUB IMEM 

: RETURN 

4475 GOSUB IS 

4488 5* CSP, SP + C21 =»822" : 5P = SP + C3 

4485 RETURN 

4588 REM CLEAR CHAR 

4516 UAR4= cPEEKcDCASE>=LC>«22+C3 : GOSUB 

PTRxIF UAR4=-C1 THEN RETURN 
4528 GOSUB DLI 

4538 POKE UAR2*C256+UAR1+COL,0 

4535 SH=C5:IF SP+5H>SL THEN GOSUB IMEM 

: RETURN 

4548 GOSUB IS 

4545 S* CSP , 5P + C2* = , •828• , :5$C5P + C3,SP + C3 
>=CHR$cR0kl> :5*c5P+C4,SP+C4J=CHR«CC0L> I 
SP=SP+C5 
4558 RETURN 
4786 REM PAUSE 

4785 TC=C6 : TR=C2 : GOSUB BPOS:? " gSQSHO 
■DfflSflB" 

4718 ITEM=C7:G0SUB C0L5EL : U AR2=ITEM : IF 

UAR2=-C1 THEN ITEM=C2 i RETURN 
4715 ITEM=C2:SH=C2:IF SP+5H>5L THEN GO 
SUB IMEM : RETURN 
4726 GOSUB IS 

4725 S* CSP , 5P>="2" :S*C5P + C1,5P + C1>=CHR 
$CUAR2+C1> :SP=5P+5H 
4736 RETURN 

4988 TC = C8 : TR = C8 : GOSUB BPOS:? " R) O H 

b s a ra b a a [si n b m ta h- « i*=m m j i i h 

Ml!!!!!!" 

4910 ibis=C2 : GOSUB MENUSEL 

4928 TC=C8 : TR=C2 : GOSUB BPOS 

4938 RETURN 

4948 TC = C8 : TR = C6 : GOSUB BPOS:? " H S H 
EJ @ H H HI" : IS = 5PEEDMI* el, 8> : GOTO 4918 

5866 REM SCROLL 

5685 ITEM=C8 

5816 TC=C6 : TR=C8 : GOSUB BPOS 

5628 ? SMENUS; 

5638 IDIS=9 : I$=5MI$ : GOSUB MENUSEL 

5848 IF ITEM=-C1 THEN ITEM = C1 I RETURN 

5658 ON ITEM+C1 GOSUB 5168,6668 

5666 GOTO 5818 

5188 REM S-LINE 

5165 ITEM=C8 

5118 TC=C6 : TR=C8 I GOSUB BPOS 

5128 ? SLMENU$ ; 

5138 IDIS=7:IS=SLMI$:G05UB MENUSEL 

5148 IF ITEM=-C1 THEN ITEM=C6 i RETURN 

5158 ON ITEM+C1 GOSUB 5288,5586,5588,5 
288 

5166 GOTO 5118 
5286 REM L'R 

5265 TC = C8 : TR = C8 : GOSUB BPOS:? " HBOEriD 

■nnraia" j 

5218 DIST=C8 

5215 DIR=CITEM-1.5JX1.5 

5228 IF PEEKCDCASE1=UC THEN UAR4=DIR+2 
9:G0T0 5238 

5225 UAR4= CDIR+C1J/C2+38 

5238 GOSUB PTR * IF UAR4= C1 THEN RETURN 

5235 GOSUB BPOS:? BBnEaGBfflBMHmaS" ; 

5248 POKE 764,255 

5245 GOSUB DLI*OLDCOL=UARl 

5258 GOSUB DISTSEL 

5268 IF UAR2=C1 THEN POKE UARCl,OLDC 
OL i RETURN 

5278 IF UAR2=12 THEN 5358 

5388 GOSUB DLI : UAR1=UAR1 - DIR 

5316 IF UAR1>C8 AND U ARK 255 THEN POKE 

UAR-C1, UAR1 : DIST=DI5T+C1 
5328 GOTO 5258 

5358 IF NOT DIST THEN RETURN 
5355 GOSUB SPEEDSEL 

5366 SH=C7:IF 5P+5H>SL THEN GOSUB IMEM 

: RETURN 

5376 GOSUB IS 

5375 5$C5P,SP+C2»= M 188 M 

5388 S$CSP+C3,5P+C3)=CHR$cR0H) :S*CSP+C 

continued on next page 
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4, SP*C4*=CHR$ CDIR*C1> * 5* CSP+C5 , 5P + C5 > = 
CHRS CDIST1 : S* CSP + C6, SP+C6*=CHR$ clTEM* 
5398 SP=5P+SH:ITEM=cDIR+Cl>*l 5:RETURN 

5586 REM U'D 

5585 TC=C8 : TR=C8 : G05UB BP05 : ? M HHI1HHQ 

5518 DI5T=C8:DIR=C3- clTEM*C2> 

5528 IF PEEKCDCA5E»=UC THEN UAR4=-DIR* 

C4+58:G0T0 5525 

5521 UAR4= cDIR+Cl* 'C2+28 

5525 GOSUB PTR 

5538 IF UAR4=-C1 THEN RETURN 

5535 GOSUB BPOS:? " BBIIEriHBraHBQHmilE" ; 

5548 POKE 764,255 

5558 GOSUB DISTSEL 

5568 IF UAR2=-C1 THEN 5558 

5578 IF UAR2=12 THEN 5658 

5688 GOSUB DLI 

5685 DIST=DIST+1 

5618 IF cR0U=C8 AND DIR=-C1> OR CR0U=9 
AND DIR=CU THEN 5648 

5615 UAR3=UAR+C3*DIR 

5616 DUM=USRcADRcPCLEAR*> , PEEKcUAR3>* 
5628 POKE UAR,PEEKcUAR3» : POKE UAR3-C1 * 
UARlsPOKE UAR3, UAR2 : POKE UAR-C1,117 
5625 ROW=ROU+DIR 

5638 GOTO 5558 

5648 DUM=U5RCADRCPCLEAR$> ,UAR2> :POKE U 
AR-C1, 117 

5658 IF NOT DIST THEN RETURN 
5655 GOSUB SPEEDSEL 

5668 SH=C7:IF SP+SH>SL THEN GOSUB IMEM 

{RETURN 

5678 GOSUB IS 

5675 5*c5P,SP + C2>= ,, 181 i ' 

5688 IF R0U-DIR*DIST<8 THEN DI5T=DIST- 
l:GOTO 5688 

5681 S$ C5P+C3, SP+C3>=CHRS cROU- DIR*DI5T 
> :5$CSP + C4,5P + C4>=CHR$cDIR + Ci:» :S$cSP+C 
5, SP+C5*=CHR$ CDI5T> 

5685 S$CSP+C6,SP+C6>=CHR$clTEM> :5P=SP+ 
SH 

5698 ITEM=CC3-DIRJ^C2:RETURN 
5888 REM DISTANCE 

5818 UAR2=PEEKC764> : IF UAR2<255 THEN P 
OKE 764,255:G0T0 5858 

5815 IF CSTICKCC8>=11 AND ITEM=C8> OR 
CSTICKCC8>=C7 AND ITEM=C3) THEN 5898 
5828 IF CSTICKCC8>=14 AND ITEM=C2> OR 
CSTICKCC8J=13 AND ITEM=C1> THEN 5898 
5838 IF NOT STRIGCC6> THEN UAR2=12:G0 
TO 5898 

5835 GOTO 5818 

5858 IF UAR2 = 28 THEN UAR2 = - CI ■ RETURN 

5855 IF UAR2=12 THEN 5898 

5868 IF UAR2=33 THEN 5898 

5865 IF CUAR2=C6 AND ITEM=C8> OR CUAR2 

=C7 AND ITEM=C3> THEN 5898 

5878 IF CUAR2=14 AND ITEM=C1> OR CUAR2 

=15 AND ITEM=C2> THEN 5898 

5875 GOTO 5818 

5898 GOSUB CLICK : RETURN 

5988 REM SPEED MENU 

5918 ITEM=SPEED:TC=C8:TR=C8:G05UB BPOS 
:? SPEEDMENUS; 

5938 TC = C8 : TR = C2 : GOSUB BPOS:? " HHriHHFI 
■BNDBH9RI" 

5948 IDI5=C3:I$=SPEEDMI$:G0SUB MENUSEL 
:IF NOT CITEM+CH THEN ITEM=C5:G0T0 5 
948 

5958 SPEED=ITEM 

5968 TC = C0 ' TR=C2 ' GOSUB BPOS 

5978 RETURN 

6888 REM 5-SCREEN 

6818 ITEM=C6 

6828 T C = C 0 ' T R = C 0 *• GOSUB BPOS:? 5LMENU S ; 

6838 IDIS=C7 : I$=SLMI* : GOSUB MENUSEL 
6848 IF ITEM=-C1 THEN ITEM=C1 : RETURN 
6858 ON ITEM+C1 GOSUB 6188,6588,6580,6 
188 

6868 GOTO 6828 
6168 REM L'R 

6185 DI5T=C8*DIR=cITEM- l»6»'l. 5 :SCRH*c 
C4, C4>=CHR$ C238-16«DIR» 

6118 TC = C8 : TR = C2 : GOSUB BPOS:? BHOBBH 

■BHsommcatij" 

6115 GOSUB DISTSEL 
6128 IF UAR2=C1 THEN 6115 
6125 IF UAR2=12 THEN 6158 
6138 DUM=USRcADRcSCRH$>> 
6135 DI5T=DI5T+C1*G0T0 6115 
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6158 IF NBT DIST THEN RETURN 
6168 GOSUB SPEEDSEL 

6165 SH=C6:IF SP+SH>5L THEN GOSUB IMEM 
: RETURN 
6178 GOSUB IS 

6175 S$ cSP, 5P+C2>="118" * S* C5P+C3, SP+C3 
>=CHR$ cDIR+Cl* s 5$ C5P+C4, SP+C4>=CHR$ cDI 
STJ :5*CSP+C5.5P+C5>=CHR$CITEM> 
6188 5P=SP+C6 : ITEM= CDIR+1>«1 . 5 : RETURN 
6588 REM U'D 

6585 DIST=C6:DIR=C3-ITEM*C2 
6516 TC=C8*TR=C2:G0SUB BPOS:' 

6515 GOSUB DISTSEL 

6526 IF UAR2=C1 THEN 6515 

6525 IF UAR2=12 THEN 6688 

6538 ON ITEM GOTO 6548,6568 

6548 UAR1=PEEKCDL+271 : DUM=USR c ADR cPCLE 

AR$> , UAR1> :DUM=U5RCADR€SCRD$>3 :POKE DL 

,UAR1-P0KE DL - CI , 117 : GOTO 6588 

6568 U AR1 = PEEK CDD : DUM = USR cADR CPCLE AR$ 

J , UAR1> :DUM=USRcADR€SCRU$>) : POKE DL+27 

,UARl:POKE DL+26,117 

6586 DIST=DI5T+C1 : GOTO 6515 
6668 IF NOT DIST THEN RETURN 
6665 GOSUB SPEEDSEL 

6616 SH=C6:IF SP+SH>5L THEN GOSUB IMEM 

: RETURN 

6615 GGSUB IS 

6628 S* cSP , 5P + C2* = "111" : S$ CSP+C3, SP+C3 

>=CHR$ cDIR+Cl* : S$ CSP + C4 , 5P+C4* = CHR$ cDI 

ST> :5*CSP+C5,SP+C5>=CHRSCITEM> 

6625 SP=SP+C6 :ITEM=cC3-DIR>'C2 : RETURN 

8888 REM OPTIONS 

8885 ITEM=C8 

8818 TC=C8 : TR=C8 : GOSUB BPOS 

6815 ? " Shift dolor miink fflisc"; 

8626 IDIS=C7:I*=0MI*:G05UB MENUSEL 

8825 IF ITEM=C1 THEN ITEM=C3 : RETURN 

8638 ON ITEM+C1 GOSUB 8186,8268,8368,2 

6886 

8848 GOTO 8816 

8168 REM CASE TOGGLE 

8118 IF PEEKCDCASE>=UC THEN POKE DCASE 

,LC:GOTO 8125 

8128 POKE DCASE, UC 

8125 SH=C3:IF SP+5H>5L THEN GOSUB IMEM 

: RETURN 

8138 GOSUB IS 

8135 SS CSP, 5P + C1> = M 38 ,i : S$ CSP + C2 , SP + C2J 
=CHR$ CPEEKCDCASE>> :SP=SP+C3 
8146 GOSUB PAUSE 
8145 RETURN 
8288 REM COLOR 

8265 GOSUB CASESEL:IF ITEM=-C1 THEN IT 
EM=C1 : RETURN 

8266 UAR3=PEEKC283+CASE> : U AR4=INT CU AR3 
/.16> : ITEM=UAR4 

8218 TC = C8:TR = C2: GOSUB BPOS:? ftSHBRQ 
■araaran" ; : GOSUB COLSEL:COLUAR=ITEM:IF I 
TEM=-C1 THEN ITEM=C1 : RETURN 
8211 ITEM=INTCCUAR3-UAR4*16>'C2:> 
8215 TC = C8 : TR = C2 : GOSUB BPOS:? SSnStlO 
■nmmnfnmmBH"; : GOSUB 4948:IF item=-ci th 
EN ITEM=C1 : RETURN 

8228 UAR2 = C0LUAR**16 + ITEM*C2:P0KE 263 + C 

ASE,UAR2:P0KE 788+CASE , U AR2 

8225 SH=C4:IF SP+SH>SL THEN GOSUB IMEM 

: RETURN 

8236 GOSUB IS 

8235 5$ CSP, SP + C1>="31" : S$ C5P + C2 , 5P + C2» 
= CHR$ cCASEi : 5$ CSP + C3 , SP + C3> =CHRS cUAR2> 
:SP=5P+5H 

8248 ITEM=C1: RETURN 
8388 REM BLINK 

8318 IF PEEKC268)>8 THEN U AR4=~C1 : UAR3 
=Cl:GOTO 8376 

8315 IF CASE>C3 THEN CASE=C3 
8328 IS=CA5EMI«CC1,C4» : TC=C6 : TR=C8 : G05 
UB BPOS:? CASEMENUS CC1,27> GOSUB 8916 
8336 IF ITEM=-C1 THEN ITEM=C2 : RETURN 
8348 UAR4=ITEM:TC=C8:TR=C2:G0SUB BPOS : 
? " fflaHmraHmSBHHOEH":lTEM=C4: GOSUB 4946 

8358 IF ITEM=-C1 THEN ITEM=C2 : RETURN 
8368 UAR3=2^C7-ITEM> : POKE 1721, UAR3 
8378 POKE 268,UAR4+C1 

8375 SH=C4:IF SP+5H>5L THEN GOSUB IMEM 

: RETURN 

8388 GOSUB IS 

8385 S$ CSP, SP+C1>="32" : 5$ CSP+C2 , 5P+C2> 
=CHR$CUAR4+C1> : S* CSP+C3 , 5P+C3* =CHR« CU A 
R3> :SP=SP+5H 
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8398 ITEN=C2:G0SUB PAUSE « RETURN 
8986 REM CASE SEL 

8985 I*=CA5EMI*rTC=Ce:TR=C8:G05UB BPOS 
:? CASEMENU* 
8919 ITEM=CA5E 

8915 IDI5 = C7 : G05UB MENUSEL » IF ITEM+C1 

THEN CA5E=ITEM 

8928 RETURN 

9888 REM SCRIPT LOAD 

9885 ? "H";:POKE 752,8:? ''BmHfflBQODH'' ; : 
INPUT FILE*'POKE 752.1 

9818 TRAP 9858'OPEN »1 , 4 , 8 , FILES : TR AP 
48888:CL0SE «1 

9815 MAR2=LENCFILE«) : 5H = C2 + UAR2 * IF SP+ 
SH>SL THEN GOSUB IMEM : RETURN 
9828 GOSUB IS 

9825 S*C5P,5P>="4 , *:5*CSP + C1,SP + C1)=CHR 

* CUAR2) : S* C5P+C2 . 5P+C1+UAR2* =FILE* : 5P = 

SP+C2+UAR2 

9838 ITEM=C4 : RETURN 

9858 ? TC = C8 : TR = C1 : GOSUB BPOS:? 

HHGiHOBnHfflm •• ; f i l e * : ? •• fflnraammmBHmmmmra 

Bll . 

9855 GOSUB 388HF ITEM THEN ITEM=4 : RET 
URN 

9868 GOTO 9815 
18888 REM EDIT 
18818 GOSUB RESET 

18815 SP=C1:TEMP*=" [GHBDIMIOGDH •* * F L A G = C 1 

18828 TC=C8 : TR=C2 : GOSUB BPOS:? TEMPS; 

18825 POKE 764,255 : GOSUB 18248 

18838 OSP=SP:GOSUB 1858 

18835 GOSUB 18188 

18848 IF ITEM=-C1 THEN GOSUB 1358 * 5P = L 

ENCS5»*C1:ITEM=C2:? **B"; ' RETURN 

18845 IF SP<LENcS*> THEN 18838 

18858 ITEM=C2:? "B" » RETURN 

18188 TC=C8 : TR=C2 * GOSUB BPOS:? TEMPS; 

18118 ITEM=C8 

18115 TC=C8 : TR=C8 i GOSUB BPOS 

18128 ? " Continue delete Hnsert"; 

18125 IDIS=18:I*=EMI*:G0SUB MENU5EL+18 

18138 IF ITEM=-C1 OR NOT ITEM THEN RE 
TURN 

18148 ON ITEM GOSUB 18288,958 

18158 RETURN 

18288 REM DELETE STEP 

18285 IF SP=C1 THEN RETURN 

18218 TC = C8 : TR = C2 : GOSUB BPOS:? fflSOSG 

18215 GOSUB 388 

18225 IF ITEM=-C1 OR ITEM THEN ITEM=C1 
: RETURN 

18238 IF SP>LENcS*> THEN 5* cOSP> *=•••• : SP 
=OSP' RETURN 

18235 5SC0SP»=5«CSPJ :SP=05P 

18248 TC = C8 : TR = C8 : GOSUB BPOS:? flonti 

nue Hnsert"; 

18258 IDIS=28:IS=EDMI$:ITEM=C8:G0SUB M 
ENUSEL 

18255 IF ITEM=-C1 OR NOT ITEM THEN RE 
TURN 

18268 GOSUB 958:RETURN 
12888 REM DATA 
12188 REM ML CODE 

12135 REM DLIttl 

12136 DATA 72.169,224,141,9.212,165,28 
4,141,23,288,165,285,141,24,288,169,17 
4,141,8,2,184,64 

12148 REM DLI»2 

12141 DATA 72,138,72,165,288,178,248,1 
9,165,28,41,32,248,5,165,287, 157,21,28 
8, 76,281,6,181,282,157,21,288 

12142 DATA 169,151,141,8.2,184,178,184 
, 64 

12198 REM DL 

12192 DATA 112,112.128.288.71.117.8.71 
.117. 8. 71. 117. 8. 71. 117. 8. 71. 117. 8. 71.1 
17. 8. 71. 117. 8. 71. 117. 8 

12193 DATA 71.117,8.71.117.8.128.66.8. 
8.2.2.2.65.218.6 

12388 REM MENU SEARCH LISTS 

12389 DATA 18,48,42,8,62,35,47 
12318 DATA 46,62,18,8,8 

12311 DATA 42,18,18,8 

12312 DATA 43,35 

12313 DATA 8,8,48 

12314 DATA 8,58 

12315 DATA 8,58.11.48 

12316 DATA 31.38.26.24.29.27.51.53.48. 



GE 
SO 
HY 
KM 
GY 
MJ 
OK 
HB 
KD 

YY 
UX 



UT 
JH 
YY 

JN 

KF 
IJ 
HD 
KN 
ME 
SS 

SG 

UT 
YY 
BT 
KR 

EA 

SJ 

NT 

BG 

UH 

AO 
DG 
IE 
IT 
BI 
AN 
MI 
DG 
CE 

UC 
FU 

BX 
BO 
SK 
PU 
PZ 

JD 
UJ 
UY 
ZA 
GM 
YK 
BA 
TK 

RM 

ER 
SE 
DM 

BU 

MX 

ER 



MARCH 1989 



58 

12317 DATA 62.18.21,37 

12318 DATA 18,58,13 

12319 DATA 18,8,58 
12328 DATA 11,8,75,64.21 

12321 DATA 56,31,38.26,24 

12322 DATA 13,8 

12323 DATA 18,13 
12588 REM UARIABLES 

12581 C8=8:Cl=l:C2=2:C3=3:C4=4:C5=5:C6 
=6 : C7=7 : C256=256 

12585 GRAPHICS CO « POKE 752 , CI ■ POSITION 

11,11:? "^fflMmrtf3firnH«F3ltf?1Plliri" 
12518 DIM PCLEAR*C19>.PPM0UE*C24>.TRAN 
5* C59> . CIO* C6> . SCRH* C12> . 5CRD* (21) . SCR 
U*c24> 

12528 DIM QMENU*c48>,SMENU*c48>,5LMENU 
* (4 8 J , 5PEEDMENU* C29> , CASEMENU* c39> 
12538 DIM BLANK* C48> ,TEXT*C119> ,TEMP*c 
128* , OLDCHAR* Cl> 

12548 DIM I*ci6> ,MMI*c7> ,RMI*c5> ,MMI*c 
4* . OMI* C2> . MPMI* C3» . SMI* c2> . SLMI* c4) . S 
PEEDMI*C18> .0MI*C4> 

12545 DIM EMI*C3* ,CMI*c3> .CA5EMI*c5> ,M 

I5CMI*C51 ,FADEMI*C2> . EDMI*c2> 

12558 DIM S*C5888> :SL=5888 

12568 DIM FILE*C14» 

12688 REM SETUP 

12685 RL=148 

12618 PCLEAR*="hh hafflawaBBBfflafflBf«[HHa!* " 

12628 PPMOUE* = , *hhCifflhCifflhaeBhaaBhhGnfficaRB[ap] 

98" 

12638 TRANS* = ' i hhnfflha»lhafflhSlfflhhGaBBIBfflJC8H 
BBHfflfflHCH8B BfflafflHfflS i eafflHEDOBBEa jBfflEHfflffi" 
12635 CIO* = "hBaBLUffl" 
12648 5CRH$ = "hfflfflHn£aH}BEHBS" 

12641 S C R D * = ' • h BBSBffl0aa0B[i0n(Il«IJHBJHS*l * ' 

12642 s c r u * = • • hwmm. jBD^taa^BBcaaDBtacafflfflBfaraffl - * 

12645 FOR IT = C8 TO 22 : READ MAR * POKE 16 
64+IT,UAR:P0KE 1687+IT , UAR : NEXT IT 

12646 UAR=1687 : POKE UAR+C6, 169 : POKE UA 
R+C7 , 282 : POKE UAR+11 , 169 : POKE UAR+12.1 
48:P0KE UAR+17,128 

12658 FOR IT = C8 TO 35 : RE AD UAR:POKE 17 
18+IT.UAR:NEXT IT 

12698 FOR IT=C8 TO 43 : READ UAR:POKE 17 
46+IT.UAR:NEXT IT 
12788 BL ANK*=" 

■• 

12785 UAR=C7:G0SUB RL : MMI*=TEMP* 
12718 UAR=C5:G0SUB RL I RMI*=TEMP* 
12715 UAR=C4:G0SUB RL : MMI*=TEMP* 
12728 QMENU*=" Bes Bio" 
12721 UAR=C2 : GOSUB RL : OMI* = TEMP* 
12725 UAR=C3:G0SUB RL : MPMI *= TEMP* 
12738 SMENU*=" Dine display" 
12731 UAR=C2:G0SUB RL « SMI*=TEMP* 

12735 SLMENU*=" Oeft Sown fflp S 
i9ht" 

12736 UAR=C4:G05UB RL i SLMI*=TEMP* 
12748 SPEEDMENU*=" O B H 0 S a B 

12741 UAR=18:G0SUB RL : SPEEDMI*=TEMP* 
12745 UAR=C4:G0SUB RL : OMI*=TEMP* 
12755 UAR=C3:G0SUB RL : EMI *= TEMP* 
12768 UAR=C3:G0SUB RL : CMI*=TEMP* 

12765 CA5EMENU*=" fflpper Dower [UBBEffl 
(ICtirararB Background'* 

12766 UAR=C5:G0SUB RL : C A SEMI* = TEMP* 
12778 UAR=C5:G0SUB RL : MI5CMI*=TEMP* 
12775 UAR=C2 * GOSUB RL : F ADEMI*=TEMP* 
12788 UAR=C2:G0SUB RL : EDMI*=TEMP* 
12888 DL=1752:DCASE=1666 

12885 R0M=C8 : C0L=C8 

12818 SP=Cl:CASE=C8:SPEED=C5 

12858 TP0S=588 : BP0S=588 • PAUSE =538 : MENU 

SEL =688 : CLICK=188 i PTR=338 : IMEM=168 i GI= 

185 : DLI = 288 ' HIL0 = 228 t IS = 25 8 

12 855 SPEEDSEL=5988: DIST5EL=5888 : C0L5E 

L=4988 : CASESEL=8988 : RESET=418 

12988 GRAPHICS C2 

12985 REM POKE 559. CO 

12918 UAR=PEEKC661> -18 : UAR1=UAR-C2*INT 
cUAR'C2> 

12915 POKE 741.255:P0KE 742 , U AR - C3 - U AR 
1 

12928 FOR IT=C8 TO 9:P0KE DL+C3*IT,UAR 
+IT:NEXT IT 

12925 POKE DL+38,PEEKC6681 : POKE DL+31, 
PEEK C661 1 

continued on next page 
37 
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12939 POKE 568,218:P0KE 561, C6 
12935 POKE 82, C6 

12948 FOR IT=C8 TO 9 : DUM=USR c ADR cPCLE A 
RSJ ,PEEKCDL + IT*C3:>» :NEXT IT 
12945 POKE 752 , CI 
12958 LC=UAR-C2-UAR1 

12955 FOR IT=C8 TO CI : DUM=USR c ADR <PPMO 
UE$J $ cPEEKc756>+C2+IT**C256, cLC+IT**C2 
56,C8> s NEXT IT 

12968 FOR IT=LC*C256 TO LC*C256+C7 : POK 
E IT+488,PEEKCIT> : POKE IT,C8:NEXT IT 
12978 POKE 54286,192 

12971 POKE 512,128:P0KE 513, C6 

12972 UC=224:REM U AR=PEEK c756> : POKE 17 
18+C2, UAR : POKE 1725+C2, UAR i UC=UAR 
12975 FOR IT=C8 TO C4 « POKE 203+IT,PEEK 
C788 + IT* s NEXT IT:POKE 288, C8 

12998 POKE 559,34 

12995 GOSUB CLICK:GOTO 988 

13888 REM LOAD 

13818 ? "H"; : FLAG=2 

13828 POKE 694,C8:P0KE 782,64:P0KE 752 
,C8:? "Load fiie";:INPUT FILE$:POKE 75 
2 CI 

13838 IF FILE* = ,,M THEN RETURN 
13848 POKE 559, C8 „■! M _ 

13858 TRAP 13158:0PEN «1 , C4 , C0 , FILE* ■ T 
RAP 48898 

13868 S$ = " • i :SP = lsGOSUB RESET 

13979 INPUT stl,UAR'G05UB HILO : 5* <U AR , U 

AR' = " " 

13989 POKE 848+C2,C7 

13999 POKE 848+8, LO » POKE 848+9, HI 

13188 UAR=ADRCS$> : GOSUB HILO 

13118 POKE 848+C4,L0:P0KE 848+C5,HI 

13128 DUM=USRCADRCCI0$>» 

13138 POKE 559,34:CL0SE til t RETURN 

13158 POKE 559,34*CL0SE Ul « TRAP 48888: 

RETURN 

13168 ? "H M ;:? " HEIfflBOBIlEIHm "J FILE* 
13178 GOSUB PAUSE 
13188 ? "H" » RETURN 
13288 REM SAUE 
13218 ? "B"J 

13228 POKE 694,C8:P0KE 782,64:P0KE 752 
,C8:? "Save f i l e" ;: INPUT FILE*:POKE 75 
2 , C 1 

13238 IF FILE$="" THEN RETURN 
13248 POKE 559,C8:TRAP 13350 
13258 OPEN »1, 8, C0, FILES : TRAP 48888 
13268 UAR=LENcSS> :GOSUB HILO 
13278 ? t*l, UAR 
13288 POKE 848+C2,ll 

13298 POKE 848+8, LO:POKE 848+9, HI 

13388 UAR=ADR C5$> : GOSUB HILO 

13318 POKE 848+C4 , LO : POKE 848+C5,HI 

13328 DUM=USRCADRCCI0$>> 

13338 POKE 559,34:CL0SE ttl : RETURN 

13358 POKE 559,34:CL0SE Ml : TRAP 48888 

13368 ? "H";:? ■• GEfflHOBEmmS "; FILES 

13378 GOSUB PAUSE 

13388 ? "K" : RETURN 

13488 REM NEU 

13485 TC=C8:TR=C2: GOSUB BPOS:? ■• HBDBQ 
13418 GOSUB 388 

13438 IF ITEM THEN ITEM=C8:G0T0 13455 

13448 GOSUB RESET 

13458 5$="":5P=C1 

13455 TC=C8:TR=C2:G0SUB BPOS 

13468 RETURN 

28888 REM MISC 

28885 ITEM=C8 

28818 TC=C8 : TR=C0 : GOSUB BPOS:? •• fiade 

□User BUser BUser QUser"; 
28815 IDIS=7:IS=MI5CMIS:G0SUB MENUSEL 
28828 IF ITEM=-C1 THEN ITEM=C2 ! RETURN 
28825 ON ITEM+C1 GOSUB 28858 
28838 GOTO 28818 
28858 REM FADE 
28855 ITEM=C8 

28868 TC = C8 : TR = C8 : GOSUB BPOS:? On 
But"; 

28865 IDIS=C5:I$=FADEMI$:G0SUB MENUSEL 
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HEN 28118 

28185 UAR3=UAR3+DIR*C2:P0KE UAR4,UAR3: 
POKE 788+CASE, UAR3 : GOTO 28188 
28118 GOSUB SPEEDSEL 

28115 5H=6:IF SP+SH>SL THEN GOSUB IMEM 
:ITEM=C8: RETURN 
28128 GOSUB IS 

28125 5*cSP,5P + C2^= ,, 33e ,, :S*CSP + C3,SP + C 
31 =CHR$ CDIR + Cl* : 5$ C5P + C4 , 5P + C4J =CHR$ cC 
ASEJ : 5$ CSP + C5, SP + C5> =CHR$ cSPEEDJ 
28138 SP=5P+5H:ITEM=C8:RETURN 
38888 REM EXIT 

38818 TC = C8 : TR = C2 : GOSUB BPOS:? HOmOO 
30828 GOSUB 308 

38838 IF ITEM THEN ITEM=C8 : RETURN 

38118 GRAPHICS C8 

38128 POKE 82,C2:P0KE 752, C8 
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28878 IF ITEM=-C1 THEN ITEM=C8 : RETURN 
28875 DIR = C1-ITEM»»C2 i U AR4 = 283 + C ASE 
28888 GOSUB CA5E5EL : IF ITEM=-C1 THEN I 
TEM=C8 : RETURN 

28898 UAR4=283+CASE : UAR3=PEEKCUAR41 : CO 
LU AR=INT CUAR3^163 

28188 UAR2 = UAR3-C0LUAR**16 : IF cUAR2<C2 
I AND DIR=-C1> OR cUAR2>13 AND DIR = C1J T 
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18 REM SIGNBOARD, LISTING 2 
28 REM BY ANDREU R. THOMAS 
38 REM cc) 1985,1987 ANTIC PUBLISHING 
35 REM CREATES LINES 12618 - 12642 FOR 
SIGN. BPS 

48 REM CLINES 18-258 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
58 REM CHANGE LINE 78 AS NECESSARY. > 
68 DIM FN$C28>,TEMP$C28»,AR$C93> *DPL=P 
EEKC185929 : POKE 18592,255 

78 FN$="D:LINES.L5T":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
88 ? "Hfflisk or Sassette?" ; : POKE 764,25 
5 

98 IF NOT CPEEKC764J=18 OR PEEKc764>= 
58) THEN 98 

188 IF PEEKC764*=18 THEN FN$="C:" 

118 POKE 764, 255 : GRAPHICS 8:? " AN 

TIC'S GENERIC BASIC LOADER" 

128 ? ,"BY CHARLES JACKSON" 

138 POKE 10592, DPL J TRAP 288 

140 ? :? :? "Creating ";FN$s? "...plea 

se stand b!#." 

150 RESTORE : READ LN : LM=LN : DIM AS cLN» : 

C = l 

160 AR$="" : READ AR* 

170 FOR X = l TO LEN CARS) STEP 3:P0KE 75 
2,255 

180 LM=LM-1 : POSITION 10,18:? " cCountdO 
wn . . . T-"; INT cLM'18> ; "* 

190 A$cC,C>=CHRScUALcAR$cX,X+2)») :C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC195>=5 THEN ? :? :? "ETOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " : END 

210 IF C<LN + 1 THEN ? :? "C3T00 FEU DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FNS="C." THEN ? :? " Prepare ca 
ssette, press cRETORNi" 
230 OPEN t*l,8,0,FN$ 

240 POKE 766,K? stl;A$;:POKE 766,0 

250 CLOSE »1 s GRAPHICS 0:? "■BmtijQBSaSCCB 

1000 DATA 274 

1010 DATA 0490500540490488328888678768 

6 906 5082836861834184184184133829169868 

13382816 88 88169888145828280 

1828 DATA 2682518968341558498588548588 

4 8632888888677879686869836861034104104 

133031104133030104133029104 

1036 DATA 1338281641841681776381458281 

3628824 969683415584 9850054051048032084 

68266 5 8 788830 36061034104104 

1040 DATA 1330291041330281841338311641 

33838164184168177628 610024106170056233 

096144003024144015138856233 

1858 DATA 8321448641760241440051381656 

64176824138816178177828616138166145838 

13 6288214896034155049050054 

1066 DATA 6516538328678738796368616341 

841628168 766 8622883415584 9858654052048 

832683867682 672836861834184 

1678 DATA 1626382222126062022022022082 

48 89663415584 9658854652849832883067082 

86 8 636 661834184162827189213 

1688 DATA 8661572166661892126861572158 

862822822822 88239696834155649858054852 

85 86 3288 38 67 882685636661834 

1896 DATA 1641628881666691892198061572 

16 0061892188 66157215686232232232136288 

238896634155 
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NEW PRODUCTS 



TURBO-816 wammmmmmmmi 

(upgrade) 
DataQue Software 
PO Box 134 
Ontario, OH 44862 
$159.95 

The Turbo-816 from DataQue Soft- 
ware adds 16-bit power to Atari 8-bit 
systems, while maintaining compatibil- 
ity with current hardware and soft- 
ware, according to DataQue President 
Chuck Steinman. A plug-in module 
will be available for the XL/XE series, 
and a replacement CPU board is 
planned for the 400/800 computers; 
little or no soldering is required. 

Also included in the package is the 
Turbo-OS, a replacement Operating- 
System ROM which takes advantage of 
the 16-bit power and the new high 
speed floating point routines. A user's 
guide and macro listing is supplied for 
assembly language programmers. 

The Turbo-816 will not only increase 
the potential speed of the computer, 
but also break the 64K memory barrier 
of existing systems, not with the awk- 
ward paged memory, but with a fully 
linear decoded address space of up to 
16 megabytes. Special memory boards 
will be available to take advantage of 
the new extended addressing range. All 
this, and compatibility with existing 
8-bit products! If anything, existing 
programs should run faster with 
Turbo-816. 

XF35 KIT, w—mmmmmamm 
RAMDRIVE + 192K, 
IC CHIP 

(hardware modifications) 
Innovative Concepts 
31172 Shawn Drive 
Warren, MI 48093 
(313) 293-0730 

Now it's easy to upgrade your Atari 
XF551 disk drive to use the newer 
3.5" drive, with the XF35 Kit. The 
$37.95 kit includes instructions, 
replacement ROM, and all cables 
required for the conversion (drive 



mechanism and mounting bracket are 
not included). According to I.C., the 
finished drive will work in the 720K 
formats with MyDOS, SpartaDOS, and 
the new SpartaDOS X cartridge. High 
speed skewing is still usable, and 
40-track formats are also available for 
use with most other DOS types. Instal- 
lation is simple, and requires only a 
minimal amount of soldering and 
desoldering. 

Upgrade your Atari 130XE with 
RAMdrive + 192K. With this 192K- 
total memory upgrade you can set up 
a full single density RAMdisk, excellent 
for disk maintenance. The $37.95 kit 
includes handlers and utilities for Atari 
DOS 2.0 and 2.5, along with instruc- 
tions on how to use it with Atari- 
Writer + , BASIC XE, MyDOS, TopDOS, 
SpartaDOS and the new SpartaDOS X 
cartridge. Installation requires some ex- 
perience in soldering and desoldering. 

The IC Chip is a replacement ROM 
for the Happy 1050 Board (original or 
clone). You'll no longer have to con- 
figure it for the U.S. Emulation Mode 
to read or write to SpartaDOS skewed 
disks. This "chip" does it automatically 
— and all other Happy functions are 
still available. Installation is just a mat- 
ter of unplugging the old ROM and 
plugging in this new one. For only 
$32.95 you get the IC Chip plus two 
double-sided disks packed full of 
utilities. 

L.A. SWAT, mmmm^mmmm 
PANTHER 

(games) 

Mastertronic International 
711 West 17th Street 
Costa Mesa, CA 92627 
(714) 631-1001 
$9-99 , 64K disk 

Shoot terrorists as part of a crime- 
fighting team in L.A. SWAT. Or rescue 
prisoners on an alien planet, flying 
your Panther Mini-Spacechip in 
Panther. Both adventures can be 
found on Mastertronic's new double- 
sided diskette. 




LANGUAGE MASTER mbm 

(electronic dictionary/thesaurus) 
Franklin Computer Corp. 
122 Burrs Road 
Mount Holly, NJ 08060 
(609) 261-4800 

A hand-held electronic dictionary, 
Franklin Computer's Language 
Master 2000 ($299.95) provides con- 
cise definitions of over 80,000 words 
from Merriam-Webster's dictionary. 
Enter the word on the keyboard, and 
within seconds the definition, parts of 
speech, hyphenation points and in- 
flected forms of the word appear on a 
large, four-line screen. If you don't 
know how a word is spelled, sound it 
out, and Language Master 2000 will 
give you a list of possible correct spell- 
ings, with easy dictionary access. Also 
included is a thesaurus of 35,000 entry 
words and 470,000 synonyms. 

Franklin's newest addition, the 
Language Master 3000 ($349 95), 
offers all the capabilities of the 
LM-2000, plus a variety of word games 
such as Hangman, Anagrams and 
Jumble. A Scrabble and crossword 
puzzle word list helps find difficult 
missing words. Specially designed logic 
strategy games, a vocabulary builder, 
and a special browsing function have 
also been added. 



New Products notices are compiled by 
the Antic staff from information 
provided by the products' manufac- 
turers. Antic welcomes such submis- 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 
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I type-In Software 



Antic-PAK 

Powerful BASIC disk utility collection. 



• By Eugene Koh 

Antic-Pak is a 
collection of fast, 
powerful disk utili- 
ties, written in plain 
Atari BASIC with 
no machine lan- 
guage subroutines. 
Beginning BASIC 
programmers can 
take apart these 
modules and study 
them to learn more 
about disk manage- 
ment techniques. 
This BASIC pro- 
gram works on all 
8-bit Atari com- 
puters of any mem- 
ory size, with disk 
drive. 





invert File to 



!»X€ loader 



E2XR ooHMand Creator 
Gighty-coliiMn 01 sk ©t rectory 
Hi l e Management Helper 
Harbage Recover 




Antic-Pak is a collection of 
disk utilities, written in 
plain Atari BASIC with 
no machine language 
subroutines. It's fast, powerful, easy 
to use, and compatible with most 
printers. Most of its functions can be 
carried out equally well by BASIC and 
DOS, but with a structure that you can 
study directly, Antic-Pak provides an 
excellent demonstration of BASIC 
disk management techniques for the 
beginning programmer. 

ANTIC-PAK PROGRAMS 

Antic-Pak contains the following 
five complete program routines. Each 
one will run independently when you 
select it from the main menu. All you 
have to do is follow the onscreen 
prompts. To get started, Type in List- 



ing 1, ANTICPAK.BAS, check it with 
TYPO II and SAVE a copy before you 
RUN it. 

Convert File to BASIC Loader 

will take any file and turn it into raw 
decimal DATA statements with a 
BASIC Loader program on top. A 
BASIC Loader program is an easy-to- 
type program which creates a hard- 
to-type program. 

The resulting file created with this 
program will be a BASIC loader pro- 
gram that the reader types in. When 
RUN, the loader will write the origi- 
nal file exactly as it was on the origi- 
nal disk. In addition, there is a check- 
sum routine added to the loader that 
makes sure that every number the 
reader types in from the DATA state- 
ments is icorrect. 

To use this routine, just type the 
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ANTIC, THE ATARI RESOURCE 



name of the file you wish to convert, 
(don't type in any D: device identi- 
fiers), then type the name to give the 
converted version. Finally, type the 
starting line number and the line 
number increment for the converted 
program. Antic-Pak will do the rest. 

DIR Command Creator writes a 
command to disk that will let you 
bring up a two-column directory 
while in BASIC, with a simple ENTER 
command. The DIR Command Cre- 
ator makes a one-sector file called 
DIR. Once this file is on your disk, just 
type ENTER "D:DIR" to get your 
two-column disk directory. 

File Management Helper is a fast 
and easy menu program. It goes 
through the files on the disk one-by- 
one, letting you delete, rename, lock, 
and/or unlock each file with a single 
keypress. 

The Garbage Remover utility for 
Atari BASIC Revision B users will fix 
a bug that can make files too long for 
memory, crashing programs before 



you realize it! Each time you LOAD 
and SAVE a program, BASIC appends 
16 unnecessary bytes to it. The Gar- 
bage Remover gets rid of these extra 
bytes by LISTing your program to 
disk, typing NEW, then ENTERing it 
back again. 

To learn more about this bug, see 
Matthew Ratcliff s Revision C Con- 
verter, (Antic, Sept. ( 85.) 

To determine which version of 
BASIC you have, type PRINT 
PEEK(43234). If you get a 162, you 
have Revision A BASIC. A 96 means 
you have Revision B and a 234 means 
you have Revision C. 

The 80-Column Disk Directory 
utility will print out a space-saving 
disk directory in four columns, using 
the full capacity of your printer. A 



Eugene Koh is a thirteen-year-old from 
Long Island, NY. His work was published 
in COMPUTE/ Magazine prior to his 
Antic debut here. 

Listing on page 25 



COMING NEXT 
IN APRIL '89 ANTIC 



ADVENTURE WORKS 

Write your great 
text adventure 

MINIMON 

High-power PEEK and 
POKE from DOS 

DISK BONUS... 

The mind-boggling 
conclusion to ESCAPE 
FROMDISPOZON 



ATARI 8-BIT POWER 

ALPHA SYSTEMS is constantly innovating to provide more power 
for your 8-bit At a r is 



HACK BACK 

Special OFFER 

The Alpha Systems HACK PACK contains all our 
finest products for making Back-up copies, 
Analyzing. Understanding and Protecting your 
Atari programs It comes complete with Atari 

Protection Techniques (Book and Disk I), Advanced Protection Techniques (Book and Disk II), The 
Chipmunk, The Scanalyzer, The Impersonator and Disk Pack 1 000. Worth over $ 1 50. Get them all 
for the special price of Just $99.95 

Atari Software Protection Techniques Vol I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today. They 
guide you through the methods used to create the protection as well as the copying techniques to get 
around them They include information on Phreaking • Hacking • On-line security • Black boxes • Self- 
destructing programs • Pirate bulletin board systems • Logic bombs • New piracy laws • Hardware 
data keys • Weak sectoring (Phantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bank Select cartridges and MUCH, MUCH MORE. The disks include automatic program protectors, 
Protection Scanners, directory hiding and more. 
BOOK I and DISK I $24.95 
BOOK II (Advanced protection) and DISK II $24.95 
Special Offer, Order both sets for Only $39.95 

CHIPMUNK 

Automatic Disk Back-Up System. Make perfectly running unprotected back-up copies of hundreds of 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy protection from most Atari programs. Back-up even heavily protected programs with 
ease I inolly a back-up svstem that needs no special hardware or skills. 

(If you need a full list of what Chipmunk copies, call or write for our free catalog) $34.95 



PARROT II 

An All New Parrot sound digitizer for your Atari. Parrot II is a 
sophisticated new hardware device that plugs into your joystick 
port. Parrot II has two inputs, One for a microphone and one for a 
~ powered source such as a tape player, radio or Compact Disk. 
The Powerful Parrot II software lets you record sounds into your computer and play them back on any 
Atari. Parrot II turns your computers keyboard into a musical instrument with nine different sounds 
covering three octaves each. The sounds can be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lets you modify the sounds on a graphic display to create brand new sounds and special 
effects Best of all, the sounds and voices can be put into your own programs that can be used on 
any standard Atari. Explore the world of digital sound and music. ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
PARROT II Demo Disk (Does not require Parrot to run) $5.00 
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POP-N-ROCKER 



Sconalyzer Automatically scan & analyze commercial programs. Unlock programming secrets and 
learn from the masters $29.95 

Impersonator Cartridge to Disk back up system. Create running back-up copies of any cartridge 
-~a£fl (up to 16K) $29.95 

X$&* CHEAT 

Get more from your games with CHEAT Tired of spending days trying to beat a game? Tired of getting 
stuck just when you need another life? Cheat is an innovative new product that gives you the chance 
you need to beat your favorite games. Cheat works with hundreds of Atari games to give you 
unlimited lives or power. End the frustration and get hours more enjoyment from your games. (Call or 
write Alpha Systems tor our free catalog with a full list of the programs that work with Cheat) ONLY $24.95 

BASIC TURBOCHARGER 

NOW for the first time a BASIC programmer can get the power, flexibility and incredible speed of 
machine language BASIC TURBOCHARGER is a book and disk package that contains over 150 
ready to use machine language routines. Complete instructions show how to add them to your own 
BASIC programs to get these features and more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture files • Sorting and Searching • Special Effects Graphics • Incredible Speed • Much, Much 
More • Over 1 50 programs. You've heard of the power of Assembler, now harness it for your own 
needs $24 95 

216-374-7469 




GIANT WALL SIZED POSTERS. 




a fast paced, multi-player trivia game that mixes questions 
with real songs (digitized 
with Parrot). Be the first to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three data disks and lets you add new questions so it will never get old. You can use a 
Parrot Sound digitizer to add new songs too! Use any kind of music from Rock to Classical to 
Nursery Rhymes. A new concept in entertainment and a perfect add-on for P arrot. $24.95 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into a digital portrait studio. This complete package lets 
you capture, save & print digital images from your Video Camera, VCR 
or TV. COMPUTEREYES hardware plugs directly into your joystick ports for 
easy use. Print your picture on a 6 foot poster. $119.95 
ComputerEyes camera system 
Comes complete with everything above, plus a black and white video 
camera and connecting cable. $329.95 

Graphics 9 Software - Add a new dimension to your COMPUTEREYES 
pictures captures images in 16 shades of grey. $12.00 
Magniprint II + 

Easily the most powerful print program available today. Print graphics from almost any format in 
hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 
Magniprint II + lets you stretch and squeeze, invert, add text, adjust shading and much more. 
Works with EPSON, NEC, Citoh, Panasonic, Gemini. Star, XMM801, and compatible printers. (850 
interface or equivalent required). $24.95 
Graphics Transformer 

Now you can combine the most powerful features of all your graphics programs. Create print shop 
icons from a Koala pad picture, from a photo digitized with ComputerEyes, or any picture file. 
Graphics Transformer lets you Shrink, Enlarge and Merge pictures for unequaled flexibility. $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally an alternative to buying expensive computer add-ons. Your Atari Comes Alive 
shows you how to built them yourself. This ^How-To' book and disk package gives you complete 
step by step instructions and programs needed to built and control these exciting devices and MORE: 
• Light Pen • Light & Motor Controllers -Alarm Systems • Voice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages Your Atari Comes Alive $24.95 



VISA & MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 gomes 
on a disk) Free wiln any order ol 3 or more items Include $3.00 shp & hdlg (US Canada) Ohio res. add 5 1 2% sales tax. 
Foreign orders add $8.00 shp & hldg. Call or write (or tree catalog. Customer Service Line (216) 467-5665 M-F 9-3. 



Order Toll Free ^ since mz . Order Toll Free 

800-558-0003 x ^^P t ^ftoilitifS00-558-0003 

WI Orders & Info 414-357-8181 Co/iAUmet JEUcttOfllCb wi Orders & Info 414-357-8181 



WI Orders & Info 414-357-8181^ 



Disk Drives 



Supra 30 Meg 649* 

*FREE Delivery in the 

Continental U.S.A. 



Indus GTS-100 189 

3.5" 8F-314 Compatible 

IB 5.25" 219 

ST Host Controller .Call 
Drive Master 44.95 



l-0fMUmeT^fecrzO/MC» VW^fers & Info 414-357-8181 



Digitizer Special I IBM Emulation Special | ST ACCESSORIES 



IMG Image 
Scanner 



Package Includes 

• PC Ditto 

• ST/PC 5.25" Drive 



MODEM SPECIAL Casio MIDI Synths 



Supra 2400 baud modem 
ST modem cable 
Flash VI. 6 Software 



CPS-101 349 

CT-640 279 

MT-540 209 

MT-240 169 



Anti-Glare Screen 19.95 

Video Key 64.95 

3.5 Drive Clean Kit 9.95 

6 Way Surge Protector. 14.95 
6 FT SF 354/31 4 Cable. 19.95 

Monitor Master 44.95 

Mouse Master 34.95 

Mouse Pad 8.95 

Mouse House 6.95 

3.5" SS/DD Disks** 11.95 

3 5" nS/nn Disk s" 15 95 




Computer 
Special 

130XE $29$ 
Computer 
With XF-551 



fXF-551 Disk Driven 
Double Density 

$179 



V 



XEP-80 80 
Column Card 

$79.95 



"Modem Packag^\ 



Avatex 1200 HC» P.R. Connec 
tion • 850 Express Software • 
Cable 6 I 70 



1 



Misc. Hardware 


PR-Connection 


59.95 


US Doubler 


49.95 


Animation Station 


59.95 


Supra 1150 Interface 


CALL 


Graphic AT Interface 


39.95 


v 





f JOYSTICKS** 

Wico Super 3-Way 19.95 

Starfighter 8.95 

Tac3 10.95 

Tac5 14.95 

Slick Stick 7.95 

Epyx 500XJ 12.95 

Epyx 200 XJ 9.95 



V 



(Note: prices good with any other purchice) 



J 



terns • J 



' Panasonic ^ 

1180 NEW CALL 

10911-11 185 

1092 329 

P1124 NEW24pin 329 

iaser Partner 1599/ 



f MODEMS 

Avatex 1 200 E 69 

Avatex 2400 HC 155 



Supra 2400 SPECIAL 149 

SPECIAL INCLUDES : Supra 2400 modem, cable 
and Free shipping in Continental USA . 



/Accessories 

5.25" Disk Notcher 4.95 

6 Way Surge Protector! 4.95 

Printer Stand 5.95 

1000 Sheets Paper 19.95 y 



Star 



NX-1000 175 

IMX-1000 Rainbow 229 

NX-2400 319 

LASER 1795. 



8-Bit Atari Software 1989 Blowout Sale 



Atari Dos 2.5 on Disk $5 

Defender on Cartridge $5 

ET Phone Home on Cartridge $5 

Home Filing Manager on Disk $5 

Millipede on Cartridge $5 

Atari Paint on Disk $8 

Time Wise on Disk $5 



Order Toll Free 

800-558-0003 

WI Orders & Info 414-357-8181 



e Continental U 8. A. Prices good with any purchace 



Order Toll Free 

800-558-0003 

WI Orders & Info 414-357-818 



ST Productivity & Education Software Specials 



IstCadd 31.95 

1«t Letters and Words 20.95 

1st Word-Plus 87.05 

220 8T 32.05 

30 Developer's Dtek 10.05 

30 Fort Package 1 or 2 17.05 

30 Plotter & Printer Driver 17.05 

A-Calc Prime 25.05 

A-Chart 14.05 

AB-Zoo 10.05 

Abacus Books CALL 

Adap 1540.05 

Adv. of 8 In bad 31 .05 

Aegis Animator 43.05 

Aesop Fables 31.05 

Al About America 36.05 

Animal Kingdom 24.05 

Animator, The 25.95 

Arabian rights 31.05 

Art and Rim Director 48.95 

Assempro 39.95 

Athena II 67.95 

Award Maker 24.95 

BackPak 64.95 

Base Two 39.95 

BB8 2.0 49.95 

C-Breeze 32.95 

Calendar 19.95 

Certllcate Maker 25.95 

Chart Pak8t 32.95 

Circuit Maker 67.95 

Copyist 2 159.95 

Cornerman 32.95 

Crystal 14.95 



'88 Team Disk For MLBB 18.95 

3D Break-Thru 25.95 

Academy 24.95 

Advanced D&D Heros of the Lance 26.95 

Alrbal 24.95 

Alrbal Construction Kit 17.95 

Alcon 25.95 

Alen Fires 28.95 

Al Aboard 17.95 

Alternate Reality 25.95 

Android Decision 22.95 

Annals of Rome 22.95 

Apshal Trilogy 14.95 

Aqua Venture CALL 

Arctic Fox 13.95 

Arena 14.95 

ArkanoH 22.95 

Art & Flm Director 44.95 

Attack on London 21 .95 

Autoduel 24.95 

Awesome Arcade Act. Pack 32.95 

Balance of Power 32.95 

Barbarian 25.95 

Bard's Tale 31.95 

Battleship 17.95 

Beal 19.95 

Bermuda Project 25.95 

Bef7»nY3 22.95 

Better Dead Than Alton 21.95 

Btemark 25.95 

Black Cauldron 25.95 

Black Lamp 17.95 

Bbck Buster 25.95 

Bobo (8ttr Crazy) 17.95 

Boulder Dash Cons Kit 17.05 

Breech 25.05 

Bridge 5.0 22.95 

Bubble Bobble 25.95 

Bubble Ghost 21.95 

CaMornta Games 28.95 

Capt. Wood 32.95 

Card Sharks CALL 



Cyber Control 39.95 

Cyber Paint 48.95 

Cyber Sculpt 54.95 

Cyber 8tudlo.The 58.05 

Archltecural Design Dbk 10.05 

Cartoon Design Disk 10.05 

Future Design Dbk 10.95 

Mlcrobot Design Dbk 19.05 

Video Titling Design Dbk 10.05 

Cyber Texture 32.95 

Cyber VCR 49.95 

Data Manager 8T 48.05 

Datamaps 17.95 

Datmapsll 17.95 

DB Man 5.0 144.95 

Decimal Dungeon 24.95 

Degas Elite 38.95 

Deluxe Mlnlcom 39.95 

Desk Cart 68.95 

Desk Top Publsher 89.95 

Education Graphics 25.95 

People, Places. Things Graphics 25.95 

Symbols & Slogans Graphics 25.95 

Dlgl-Drum 24.95 

Drafbc 114.95 

Draftx Large Data Plotter 87.95 

Draw Art Pro 49.95 

Dsk Tp Pub Lib/Easy Draw 64.95 

Dyna Cad 449.95 

Easy Draw 64.95 

Easy 8core 67.95 

Easy Toob 32.95 

Electro Calendar 35.95 

Fast 31.95 



Financial Plus 114.95 

Fingers 34.95 

First 8hapes 20.95 

Flash 1.8 19.95 

Flashback 79.95 

FortPakl for Easy Draw 25.95 

Forts & Borders/P.M 21.95 

Fortz ...... 22.95 

Forth MT 32.95 

Fraction Action 24.95 

6 Plus + 27.95 

G.I.8.T. 22.95 

Genesis 49.95 

6 FA Artist 49.95 

6FA Artist 49.95 

GFA Basic 2.0 19.95 

GFA Basic 3.0 64.95 

GFA Book 3.0 10.95 

GFA Companion 32.95 

GFA Compiler 38.05 

GFA Draft + 99.95 

GFA Object 67.95 

GFA Vector 32.95 

Ghostly Grammers 31 .05 

Gin Patch 104.05 

Hard Disk Backup 25.05 

Human Design Dbk 10.05 

Hyper Switch 10.05 

IB Copy 21.05 

IB Disk Utility 21.95 

IB Hard Dbk Back Up 21.05 

Informer. The 67.05 

Interlink 24.05 

Invasion 10.05 



Juggler UtlBty 32.05 

KCS Level II 180.05 

Keyboard Contr Sequencer 140.05 

Keys 48.05 

KkJ Talk 20.05 

Klnderama 24.05 

Labelmaster Elite 27.05 

Lands of the Unicorn 21.05 

Laser C 124.05 

LC8 Wanderer 25.05 

LDW Basic 2.0 54.05 

LDW Power 00.05 

Logic Master 31 .05 

LogistlxJr 57.05 

M-Cache 25.05 

M-Dbk+ 25.05 

Macro Mouse 22.05 

Magical Myths 31.05 

Major Motion 25.05 

Make It Move 46.05 

Maps and Legends 22.95 

Mark Williams C 114.95 

Mark Williams CSD 43.95 

Master Cad 124.95 

Master Plan 58.95 

Master Tracks Pro 219.95 

Math Talk 20.95 

Math Talk Fractions 20.95 

Malh Wizard 24.95 

Mavb Beacon Typing 32.95 

Micro Cookbook 32.95 

Micro Lawyer 39.95 

Midi Maze 25.95 

Mlghly Mail 32.95 



Mlnlcom 25.95 

Mother Goose 10.95 

MouseTracks 84.05 

Music Construction 8et 33.95 

Music 8tudk> 88 38.95 

Navigator, The 32.95 

Neo Desk 18.05 

P.I.E 19.95 

PAGE 8TREAM {pub ptnr pro) .... 127.95 

Palntpro 32.95 

Partner Forts 1 or 2 10.05 

Partner Forms 10.05 

Partner 8T 32.05 

PC Ditto 3.0 64.05 

Personal Draw Art I 10.05 

Personal Money Mgr 32.05 

PHA$ar 58.05 

Powerplan 40.05 

Prkitmaster Plus 24.05 

Art Gallery 1.2. or 3 18.05 

Pro Drum 10.05 

Pro Midi 10.05 

Pro Sound 10.05 

Pro 8ound Designs 84.05 

QMI BBS 8T 31.05 

Qulcktran 22.05 

Read & Rhyme 24.05 

Read-A-Rama 31.05 

Realltzer 150.05 

Regent Base 1.1 70.05 

Regent Word II 48.05 

Replay 4 80.05 

Revolver 32.05 

Roland D/1 10 74.05 



NEW LOW PRICES 



ST Recreation Software Specials 



Carrier Command 20.05 

Centerfold 8quares 10.05 

Champ Wresting 12.05 

CHA08 "Dungeon Master Part II" .18.05 

Chessmaster 2000 28.05 

Chronoquest 32.05 

Corruption 20.05 

Cosmic Relief 23.05 

Crash Garrett 25.05 

Crystal 14.05 

Cyber Complex 18.05 

Dark Castle 20.05 

Death Sword 12.05 

Defender of Crown 32.05 

Deja Vu 32.05 

Dive Bomber 28.05 

Double Dragon 28.05 

Dream Zone 25.05 

Dungeonmaster 24.05 

Dungeon Master Part II "CHA08" 18.05 

Bite 20.05 

Empire 31.05 

European 8cene Disk 17.05 

Extensor 18.05 

M5 8trike Eagle 25.05 

Falcon F-18 32.05 

Female Data Slrtp Poker 16.05 

Final Assul 28.05 

Fire and Forget 25.05 

Fire Zone 23.05 

Flight Simulator II 32.05 

Foundation Waste 24.05 

Fright Run 25.05 

Games : 8ummer Ed 28.05 

Games : Winter Ed 28.05 

Gato 24.95 

Gauntlet 32.05 

Gladiator 25.05 

Global Cmmdr 28.05 

Gold of the Realm 24.05 

GoWrurmer 25.05 

GoWrunner Seen Disks 1 Or 2 10.95 



Gc4drunner2 25.95 

Gone Hsh'n 29.95 

Guild of Thieves 29.95 

GunsWp 32.95 

Harrier Combat 8Jmu»ater 32.95 

Hero's of the Lance 25.95 

Hint Disk for Bards Tale 15.95 

Hole In One Miniature Golf 18.95 

Hollywood Poker 18.95 

Hunt for Red October 33.05 

Hyperdome 22.05 

I Ludicrous 21.05 

Ikarl Warrior 25.05 

Impossible Mbs II 28.05 

International 8occer 25.05 

Into the Eagle's Nest 25.05 

Japan Scenery Dbk 17.05 

Jet 32.05 

Jlnxter 25.05 

Joker Poker 32.05 

Jupiter Probe 17.05 

Karate KkJ II 25.05 

Karateka 22.05 

King's Quest 1 or 2 or 3 32.05 

King's Quest 4 NEW 32.05 

Kosmlc Krelg 25.95 

Lancelot 26.95 

Leader Board Duo Pak 17.05 

Leatherneck 25.95 

Leatherneck 4 Player Adaptor 13.05 

Lebure Suit Larry 25.05 

Lebure Suit Larry 2 took'n for love 32.05 

Levtathon 10.05 

Lock On 25.95 

Lords of Conquest 13.95 

Lords of the Rising 8un 32.95 

Ma|or Motion 25.95 

Manhurter New York 32.95 

Manbx 17.95 

Master Nlnb 26.95 

Match-point 25.95 

Menace 19.95 



Metrocross 13.95 

Metropolis 2000 st 22.95 

Micro League Baseball II 39.95 

Moeblus 24.95 

MONOPOLY 25.95 

Mortvlle Manor 22.05 

Murder on the Atlantic 25.95 

Night on the Town 22.05 

Obllterator 25.95 

Olds 21.95 

Omega Run 25.95 

Operation Wo* 25.95 

Outrun 32.95 

Overlord 25.95 

Paladin 25.95 

Paper Boy 32.95 

Phantasie1.2or3 25.95 

Phantasm 22.95 

Plnball Factory 25.95 

PhiBall Wizard 21.95 

Platoon 25.95 

Pkltos 19.95 

Police Quest 32.95 

President Elect "88 18.95 

Q-Ball 19.95 

Qlx 25.95 

Questronll 31.95 

Rastan 25.95 

Rebel Charge OCNckamauga 38.95 

Rebel Universe 25.95 

Red Alert 11.95 

Renegade 25.95 

Rings of Zilfln 25.95 

Road Raider 32.95 

Road Wars 20.95 

Roadrunner 32.95 

Roadwar 2000 25.95 

Roadwar Europa 28.95 

Rockel Ranger 32.95 

Rockford 20.95 

RPV 24.95 

Rublcom Allance 20.95 



8.D.1 32.95 

8can Plx Illustrations 24.95 

Scan Plx pets & animals 24.95 

8can Plx reKg & holidays 24.95 

8crabble 25.95 

8cruples 25.95 

8ertry 29.05 

8hadowgate 32.95 

8hoot the Moon 25.95 

8huttle2 25.95 

Silent 8ervlce 25.95 

8Hpheed 22.95 

8lnbad 32.95 

8ky Blaster 18.05 

8ky Chase CALL 

Skyfox 14.05 

Slaygon 25.05 

8orcerer Lord 23.05 

8 pace Cutter 10.95 

8 pace Harrier 32.95 

Space Quest 1 or 2 32.95 

8pace 8chool 81m 22.95 

8 pace 8tatlon Oblivion 28.95 

8 pood Buggy 25.95 

8ports- A- Ronl 13.95 

Spy vs Spy 3 17.95 

ST Comes Alve 19.95 

8TAC The Adventure Creator 44.95 

8tar Fleet 1 34.95 

Star Gilder II 29.95 

8tar Quake 19.05 

8tar Wars CALL 

Starstruck 14.05 

Stolar Crusade 36.95 

ST08 The Game Creator 38.95 

Street Cat 13.95 

8treet 8oocer 28.95 

8trlpPoker2 25.95 

Sub Battle 8»m 23.95 

Sundog 22.95 

Super Cycle 12.95 

8uper 8tar Hockey 32.95 



8 can Art 32.95 

8core Writer 25.95 

Shadow 19.95 

Space Math 25.95 

8pectrum512 43.95 

8pelterBee 20.95 

8T Art Director 48.95 

8T Becker Text 8T 87.05 

8T Replay 4 80.05 

8T8prite Factory 25.95 

8TTa«c Professional 18.95 

8uper Charged EZ Draw 99.95 

8uperbase Personal 46.95 

8uperbase Pro 179.95 

8wfftcalc ST 48.05 

8yrvla Porter 48.95 

Sympte Trac 414.95 

Sync Trac 269.95 

Technical Draw Art I 19.95 

Tempus 32.95 

Textpro 32.95 

Thunder 28.95 

Time Bandits 25.95 

Time Link 33.05 

Trlmbase 64.95 

Tune Up 32.95 

Tunes mith 87.95 

Turbo ST 32.95 

Utllty Plus 39.95 

Video Key 84.95 

VIP Professional 84.95 

WordPerfect 134.95 

Word-Up 48.95 

Wordwriter 8T 48.95 



8uper 8tar 8ocoer 32.95 

T.V. 8ports Footbal 32.95 

Tanglewood 25.95 

Techno Cop 28.95 

Temple Apshal Trilogy 12.95 

Temple of Doom 32.95 

Terror Pods 25.95 

Test Drive 24.95 

Tetra Quest 25.95 

Three Stooges 32.95 

Time And Magic 26.95 

Time Bandits 25.95 

Tonic Tie 25.95 

Tower Toppler 28.95 

Tracker 29.95 

Tralblazer 32.95 

Transputer 22.95 

Twilights Ransom 22.95 

Typhoon Thomson 22.95 

Ummalll 25.95 

Ultima IV 38.95 

Uninvited 32.05 

Universal Miliary Simulator 32.95 

Universe II 32.95 

Uridlum 25.05 

Vampire's Empire 18.95 

Vegas Gambbr 22.95 

Virus 19.95 

War8hlp 38.95 

Wargame Construction 8et 22.95 

Warlock 21.95 

Warship 38.95 

Western Europe 8cen. Disk 17.95 

Western Games 18.95 

Winter Challenge 10.95 

Winter Games 12.95 

Wiz ball 14.95 

Wizard's Crown 25.95 

World Games 12.95 

WWF Micro Wrestling 39.95 

Xevtous 19.95 

Zynaps 22.95 



No surcharge for 
MasterCard 

To Ordtr Call Proo 

800-558-0003 



P.O. BOX 17882.MIL WAUKEE.Wl 63217 

ORDER LINES OPEN 
Mon-Frl 9am-9pm CST Sat HarrvSDm 



WSince 1982 _ M - J 9 - 

'G.on.^u.nxe.tL c ^Ve c fcon. £c A 



No surcharge for . . ... 

y. For Taohnloal Info, Ordor 

T»l«x Number 9102406440 LT'^TtT S ^JT 

(ANSEKBACK ■ GOMPUT MLW UQ) 414-357-8181 



OHOCMNQ BfOWaATTOIt Please specify eyetem. For fast delivery send cashier's chuck or money order. Personal and company checks allow 14 bu»m»»» days to dear. School P.O.'t welcome. COO. ohe r oee are $3.00. In Continental USA inckjde S3.00 for software order • 6% shipping 
for hardware minimum $6.00. MasterCard and Visa orders please Include card #, eiplratkxi date and signature. W1 residents please Include 5% sales tax. HI, A K. FPO. APO, Puerto Rtoo and Canaolan orders, please add 0% shipping. Minimum $4.00. All other foreign order* add 18% 
shipping, minimum $18.00. All order shipped outside the Continental U.8.A are shipped first class Insured US. mall tf foreign shaping oharrges eioeed the minimum amount, you wil be charged the additional amount to get your package to you quickly and safety. Al goods am new and 
Include factory warranty. Due to our tow prices al sales are final. All defective returns must have a return authortratton number. Ptease call (414)357-8181 to obtain an RAf or your return wil not be aocepted Prices and a valla Wlty subject to change without notloe. 



BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 



SAVE 25% TO 35% 



How To Order: 



Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 

Example: 1A- is for "April 1983, magazine 
& disk" 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 



Prices: 



Magazine & Disk 
Magazine only 
Disk only 



1 To 5 If you order more 
Issues than 5 Issues 

$7.00 each $6.50 each 
$3 . 00 each $2 . 75 each 
$5.00 each $4.75 each 



Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 



Back Issue Order Form 



Order # 



Selection 
A, B, or C 



Order # 



Total Issues Ordered: 



1 to 5 



Total Issues 
Ordered: 

6 & over: 



Selection 
A, B, or C 



No. 


Issues of Sel. A: 


x $7 ea. 


x $6.50 ea. 


= $ 


No. 


Issues of Sel. B: 


x $3 ea. 


x $2.75 ea. 


= $ 


No. 


Issues of Sel. C: _ 


x $5 ea. 


x $4.75 ea. 


= $ 



Total $ . 

Shipping & handling $ _ 
Amount enclosed $_ 



□ Check Enclosed □ VISA □ MasterCard 

Name 

Address 

City 



State . 



Zip . 



Credt Card # 
Exp. Date 



Canada, Mexico and all other foreign add ! 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2% sales tax. 

Aftfic 

The ATARI Resource 



Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 



ORDER * 



ISSUE 



1 April 1983: Games— 3-D Maze, Voyeur 

2 May 1983: Telecomputing— Microids, 

Tele Chess 

3 June 1983: Databases— Stargazing, 

Dancin' Man 

4 July 1983: Adventure Games— Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics— 3-D Fuji, Keystroke 

Artist 

6 September 1983: Education— P/M Tutor 

7 October 1983: Sports Games— AutoCassette 

8 November 1983: Sound & Music— Air Raid, 

Casting Characters 

9 December 1983: Buyer's Guide— 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers— Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance— TYPO, 

Gauntlet 

12 March 1984: International Issue— DiskRead, 

Poker Solitaire 

13 April 1984: Games— Risky Rescue, 

Math Wizard 

14 May/ June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications— AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives— Horseplay, Recall 

17 September 1984: Computer Graphics- 

Graphics Converter, Olympic Dash 

18 October 1984: Computer Learning— Bouncing 

Ball, Antic 4/5 Editor/Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer's Guide— Inf obits, 

Biffdrop 

2 1 January 1985 : Super Utilities —TYPO II , 

DISKIO 

22 February 1985: Finances— Home Loan 

Analyzer, Drum/Bass Synth 

23 March 1985: Printers— Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers— Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Ataris— Son of Inf obits, 

Arena Racer 

26 June 1985: Computer Arts— View 3-D, 

The Musician 

27 July 1985: Computer Challenges— Miniature 

Golf, Guess That Song 

28 August 1985: Telecommunications— Atari 

'Toons, Pro* Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 



ORDER # 



ISSUE 



30 October 1985: Mind Tools— Graph 3D, GEM 

Color Cascade 

31 November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 
Management 

32 December 1985: Shoppers Guide— DISKIO 

Plus, Box-In 

33 January 1986: Atari Products are Back- 

Appointment Calendar, Dungeon Master's 
Apprentice 

34 February 1986: Printer Power— T-Shirt 

Construction Set, Forth Escapes 

35 March 1986: Practical Applications— Lunar 

Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics— Fractal 

Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary— Digital 

Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing— Weather 

Wizard, Bomb Squad 

39 July 1986: Computer Arts— Amazing Card 

Shuffler, Graf con ST 

40 August 1986: Online Communications— 

Ultrafont, Floppy Filer 

41 September 1986: Weather— WEFAX Decoder 

(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks— Video Stretch, 

TYPO ST 

43 November 1986: Personal Finance— Budget 

dataBASE, V-Graph 

44 December 1986: Shoppers Guide— Stepper 

Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari— Talking 

Typewriter, Rebound 

46 Februaryl987: Word Processing— SF 

Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 

Multi-AUTORUN 

48 April 1987: —Designer Labels, Taxman 

49 May 1987: 5th Anniversary— A-Rogue, Poker 

Slot Machine 

50 June 1987: Animation— Verbot Commander, 

Citadel 

51 July 1987: Print Anything— Ghost Writer, 

Your Net Worth 

52 August 1987: Atari Muscle— Sideways 

Spreadsheet, Diamond Dave 

53 September 1987: Work/Play— Mighty Mailer, 

Maximillian B. 

54 October 1987: Football Predictor— Antic 

Prompter (8-bit/ST), Spelling Checker 

55 November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 

56 December 1987: Print Holiday— P. S. Envelope 

Maker, Antic Publisher 



type-In Software 



FEATURE APPLICATION 



Flashy electronic billboards with your Atari. 
By Andrew Thomas 

SignMaker is a BASIC program that 
will turn an 8-bit Atari computer 
with at least 64K and disk into an elec- 
tronic sign displaying as many as 10 
lines of moving text in four colors, with 
scrolling, blinking, fading, uppercase 
and lowercase characters and graphics. 



If you have a message to get across, 
electronic message display centers are 
a highly effective medium. Electronic 
signs attract and hold viewers' atten- 
tion with an ever-changing display of 
scrolling messages and graphics. 

But these signs are expensive. A 
one-line indoor message center— the 
cheapest — costs several hundred dol- 
lars. And all that sign will do is dis- 
play uppercase characters scrolling 
and maybe blinking. 

SignMaker is a menu-driven editor 
that will turn your inexpensive 64K 
8-bit Atari computer into an electronic 
sign with up to 10 lines of text, four 
colors, scrolling, blinking, fading, up- 
per and lower case text and graphics. 

GETTING STARTED 

If you don't have a business, Sign- 
Maker can be used to title videos or 
as a high-tech refrigerator door. 
("Billy!" <scroll left, blink, blink> 
"Don't forget to take out the trash!" 
<bright graphic of trashcan, just in 
case he's forgotten what it looks 
like>.) 

Type in Listing 1, SIGN.BAS, check 
it with TYPO II and SAVE a copy be- 
fore you RUN it. Be especially careful 



typing the data and set-up section 
from 12000 to 13000. An error here 
can cripple the entire program. 



so you think 
§ ♦ a new car is 

not in the 
* * cards 



* * I think again 



visit rosebud cars 



If you have trouble typing the spe- 
cial characters in lines 12610-12642, 
don't type them in. Instead, type List- 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES. LST 

To merge the two programs, disk 
users LOAD "D:SIGN.BAS" and then 
ENTER "D: LINES. LST". Remember to 
SAVE the completed program before 
you RUN it. 

SignMaker's menus are arranged in 
a branching "tree" structure. Choos- 
ing an item in a menu will often lead 
to yet another menu. Pressing [ESC] 
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AMU! 



TO 



Z1J 



returns you to the previous menu. 

Select items from the menu using 
either keyboard or joystick. The menu 
pointer can be moved with a joystick 
or the arrow keys. Press [RETURN] or 
the joystick button to select an item 
marked by the pointer. On most 
menus an item can also be selected by 
pressing its first character on the 
keyboard. 

MAIN MENU 

The main menu offers seven 
choices: [P]lay, [R]ecord, [E]dit, 
[L]oad, [S]ave, [N]ew and [Q]uit. 
Throughout SignMaker, you select a 
command simply by typing its first 
letter. 

[P]lay: runs your message in a 

continuous loop onscreen. 
[R]ecord: enter your message, or 

add on to an old one. 
[E]dit: make changes to an existing 

message script. 
[L]oad: load a message script from 

disk. 

[S]ave lets you save your current 
message script to disk. The filename 
can be up to 14 characters long, in- 
cluding the directory specification; if 
the DOS you're using has longer file- 
names, the maximum size can be in- 
creased in the DIM statement in line 
12560. 

[N]ew clears the current sign from 
memory and screen, so you can start 
a fresh project. 

To show you what you can do with 
SignMaker, a sample file has been in- 
cluded on this month's Antic disk. To 
play it, first [L]oad D:DISKS.SGC, then 
choose [P]lay. The sign will play over 
and over. Press any key to stop it and 
you will be returned to the opening 
menu at the end of the current loop. 

CREATE A SIGN 

From the main menu, choose [R]ec 
to record the "script" for your mes- 
sage. You can also use [R]ec to add to 
an existing script. [L]oad and [P]lay 
the script you want to add to, then 
press any key to stop it. When the 
main menu appears you can then add 



on to the end of the script by press- 
ing [R]. 

The [R]ec submenu has five 
choices: [W]rite, [S]croll, [P]ause, 
[Ojption, and [L]oad. All but the last 
lead to more submenus. Choose 
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[W]rite to actually put things on the 
screen. The four choices in this sub- 
menu are [E]nter, [P]lace, [C]lear, and 
[Ojnscreen. 

In [E]nter you can type in up to 119 
characters (3 lines), followed by a 
[RETURN]. The string you enter will 
be kept in a temporary buffer which 
you can [Pjlace on the screen one or 
more times. To cancel this operation, 
delete any unwanted text and press 
[RETURN]. 

[P]lace puts the string just entered 
somewhere on or just off the screen, 
as directed in the submenu. Position 
the text by moving the cursor with the 
joystick or arrow keys. If you selected 
the [Ojnscreen option from the sub- 
menu, the string will begin at the spot 
you choose on the screen. 

[C]lear leads to a submenu allow- 
ing you to clear a character, line, or 
the whole display. 

In the [W]rite submenu, [0]nscreen 
lets you put single characters on the 
screen, in any position. The charac- 
ters will appear one at a time, in the 
order entered, as the message plays. 

You can move the cursor with the 
arrow keys or the joystick. [RETURN] 
will send the cursor to the beginning 
of the next row. The [DELETE] key 
will not work here. Space over what 
you want deleted and edit it out later, 
in the [E]dit menu. Special characters 
(those used for the movement keys) 



can be entered by pressing [ESC] first, 
then the key. Press [ESC] twice to exit. 

[L]oad asks for a filename and 
records it on the script. When the 
program reaches this instruction 
while playing a script, it will load the 
new script into the buffer and play it. 
(If the file cannot be found, the in- 
struction is ignored.) 

With this command you can set up 
a chain of files to be played, and later 
easily cut and paste messages out of 
or into the chain. Editing long scripts 
can be excessively time-consuming, 
so it's a good idea to separate mes- 
sages into different files to keep scripts 
short. 

[S]croll moves a line or the whole 
screen horizontally or vertically. If 
you choose to scroll a line, use 
the joystick or arrow keys to position 
the cursor over a line, and press 
[RETURN] or the joystick button to 
select it. Next choose the distance to 
scroll with the joystick, arrow key or 
the [SPACEBAR]. Then choose a 
speed. 

[P]ause records a pause on the 
script. The submenu offers sixteen 
lengths of pauses — [0] is about seven 
seconds, [15] is about 40. To save time, 
the pause won't play during [E]dit 
mode. 

[Ojption leads to some nifty effects. 
The four choices are [S]hift, [C]olor, 
[B]link, and [M]isc. 

[S]hift is a toggle between upper- 
case and lowercase for the screen dis- 
play. Graphics 2 only allows upper- 
case, numbers and punctuation, or 
lowercase and graphics on the screen 
at one time. 

[C]olor lets you set the colors and 
brightnesses of the background and 
the four color registers. (The four 
colors can be displayed by using up- 
percase and lowercase normal and in- 
verse characters.) The pointer starts at 
the current value in the color and 
luminance menus. You can include 
many color changes on a script. 

[B]link can select one of four 
groups of characters and make them 
blink at varying speeds. If characters 
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are already blinking, use [Bjlink a 
second time to stop them. 

[M]isc leads to [F]ade, which fades 
a character color in or out, and four 
items which can lead to user-defined 
routines. 

EDITING SCRIPTS 

When you chose [E]dit from the 
main menu, each instruction in the 
script is played one at a time, then 
listed in the text window. After each 
step you can either [C]ontinue to the 
next instruction, [Djelete the last 
instruction, or [I]nsert more instruc- 
tions after the last. The first instruc- 
tion shown is BEGINNING. You can't 
delete this, but you can insert more 
instructions here, at the very start of 
your script. 

After you [D]elete a step, you may 
either [C]ontinue or add changes at 
this point with [Ijnsert. Because of 
memory restrictions, the effects of 
your deletion will not be shown on 



the screen — you have to play through 
the script again with [P]lay or [E]dit 
to see the effects. 

[I]nsert leads to the [Rjecord sub- 
menu. Everything you record is in- 
serted into the script after the last 
instruction played. Exit this mode by 
pressing [ESC] to back up into the 
[E]dit menu. 

MAKING GRAPHICS 

To add graphics to your messages, 
you will need to first go into the 
alternate character set that includes 
the control characters. From the main 
menu choose [R]ec. From the sub- 
menu choose [0]ption, then the 
[S]hift option. (Any text already on 
screen will be converted to the alter- 
nate character set.) Because of the 
limitations of Graphics 2, you can 
only use lowercase text with your 
graphics. 

Press [ESC] to return to the pre- 
vious menu, and choose [W]rite, then 



[Ojnscreen. In onscreen writing, you 
can place characters one at a time 
where you want them on the screen. 
Using various combinations of keys, 
you can build graphics in four colors. 
Experiment to discover all the possi- 
ble characters that result from using 
[ESC], [SHIFT], [CONTROL] or [IN- 
VERSE] with other keys. 

Even if you space over a character, 
it will reappear briefly when you 
[P]lay the message. To clean up un- 
wanted characters or make some 
changes, go into [E]dit from the main 
menu. Characters entered through on- 
screen writing will appear one at a 
time, giving you a chance to delete 
them. a 



Andrew Thomas recently graduated from 
Indiana State University with a degree 
in technical journalism. His program 
Quizzer appeared in the October 1988 
Antic 

Listing on page 32 



GET YOURS FAST 




Super Bonus Program! 

Found only on the disk, it's too large a type-in 
program to fit in the magazine. 

Plus all 172K of this month's Antic programs on 
disk. Great 8-bit software without typing! 

Phone Toll Free 

(800) 234-7001 

Phone orders by Visa or MasterCard only 
Ask for ADS389 
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24 HOURS 




Visa - MasterCard 



SERIOUS BUSINESS 



Can you really run a business on your Atari? You 
bet! TurboBase from MicroMiser is serious software 
for serious businesses. It computerizes your whole 
office with General Ledger, Accounts Receivable, 
Accounts Payable, Payroll, Inventory, Point of 
Sales, etc. It's also a REAL database with REAL 
power to organize your information. After giving up 
on other databases, many happy customers use 
TurboBase for its database power alone. 

TurboBase is equal to anything running on IBM 
PCs, but costs thousands less. Hundreds of success- 
ful business are running on TurboBase. This is 
a comprehensive package; it's flexible and sophisti- 
cated. Expect to spend about six weeks learning to 
get the most out of it. Of course MicroMiser pro- 
vides complete professional support. 

Now TurboBase 80 demolishes the final advantage 
of more expensive machines. It works with the Atari 
XEP 80 adaptor to give your work a full 80 col- 
umn display. See twice as much information at a 
glance. Lay out your reports and forms exactly as 
they'll appear in print. If you don't already have the 
Atari XEP 80 adaptor, we'll provide that for you, 
too. 

TurboBase (TH0015) $159.95 

TurboBase 80 (requires XEP 80) (TH0016) $179.95 
Atari XEP 80, 80 column adaptor (TH0017). $79.95 



EVERYONE'S FAVORITE 



SUPERDOS 5.0 supports all drives and densities 
with auto-sensing so you'll never again worry about 
mixed formats. Plus, you get support for RAMdisks 
(up to 320K), and you can restore deleted files and 
patch damaged ones and much more. Only SUPER- 
DOS 5.0 fully supports your new XF551 disk 
drive, yet is compatible with DOS 2.5. SUPERDOS 
is the easiest, friendliest DOS there is. See why 
everyone loves SUPERDOS. Imported from Austra- 
lia by Technical Support. 

SUPERDOS 5.0 (TH0023) $20.00 



SUPPORT ATARI PRC 

ATARI 400/800/600/ 1200] 




■ STICKYBEAR 
SAYS HI! 

He'll give your kids a headstart. 
Pre-schoolers love Stickybear, 
and so do their parents. He's the 
most popular name in young people's 
software for a reason, he's the best! 
Now these fun, educational programs 
can help your children to grow 
and develop. Don't neglect the 
benefits your computer offers your 
little ones. Hours of excitment while 
they're learning valuable primary 
skills. Rated for ages 3-6, but older 
kids love Stickybear, too. Order 
now and save 1/3! From Optimum 
Resources/Weekly Reader. 

Fun I eductional games for kids: 1 

Stickybear Shapes (TH0018) just $19.95 

Stickybear Numbers (TH0019) just $19.95 

Stickybear Opposites (TH0020) just $19.95 

Fun games for kids to play with their parents. 
Stickybear Basketbounce (TH0021) just $19.95 
Stickybear Bop (TH0022) just $19.95 



THE FINEST TEXT 
ADVENTURES [SAVE 



Infocom always created the greatest 
text advetures. Now the Antic ARCADE 
brings you four of their best, at a fraction of 
the original prices. Find out for yourself why these 
adventures have become the most popular games of 
all time. From Mediagenic/Infocom. 

Mindshadow (TH0024) bSfrttTnow $17.95 

Seastalker (TH0025) fefrttnow $17.95 

Moonmist (TH0026) $39^5 now $17.95 

Wishbringer (TH0027) $39^5 now $17.95 



I 
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GRA MERS - BUY SOFTWARE! 

L/600XL/800XL/65XE/130XE/XE GS 



3D DYNAMITE 



25% off 



I 



Now you can have the kind of 3D ability which is 
revolutionizing graphics on larger computers. With 
Super 3D Plotter II from Elfin Magic, your 8-bit Atari 
delivers Cyber Power. Plot complex solid objects. Spin 
them, rotate them, view them from any angle or 
distance. Work with a joystick or enter data nu- 
merically, or both. Super 3D Plotter II is the most 
advanced solid object modeling program available on 
any 8-bit computer. And now the price's reduced 25%. 
Super 3D Plotter II (TH0028) $3^5* now $29.95 



COMPUTERIZE YOUR HOME 

■HHHHI 

The X-10 is the most popular home control system. And 
no wonder, you don't need expensive rewiring. X-10 
offers interfaces for all popular computers EXCEPT 
YOUR ATARI. Now Terrific Corp. comes to the rescue 
with the PowerManager. It hooks your Atari to any X-10 
interface designed for any other computer. 

Now your Atari controls the lights, appliances, thermo- 
stats, fans, alarms, and anything else electrical. Regu- 
late outside lighting for security, safety, and beauty; 
never come home to a dark house again. Control when 
the kids watch TV. Manage your furnace and air condi- 
tioner, save money on energy bills. Software and cable. 
(Requires CP290 Powerhouse Interface from X-10). 
PowerManager (TH0029) now $24.95 



J PRINT SHOP 

FONTS AND BORDERS 




PS FONTS 



Everybody's got lots of Print Shop pictures, but where do 
you find fonts and borders? Right here! We have the 
whole collection from No Frills Software, all four disks! 

(Requires Print Shop upgraded with the Print Shop Companion and 
XL/XE with at least 64k). 

PS Fonts and Borders #1 (TH0030) $14.95 

PS Fonts and Borders #2 (TH0031) $14.95 

PS Fonts and Borders #3 (TH0032) $14.95 

PS Fonts and Borders #4 (TH0033) $14.95 

Print Shop and Print Shop Companion® Broderbund Software 



HALF PRICE MIDI! 

Yes, prices for these fabulous Hybrid Arts hard- 
ware/software systems are slashed in half. All you 
need to control MIDI from your Atari. MIDI Track 
controllers are the most sophisticated 16 track 
sequencer/editors you can get. Compose, edit, and 
play your creations. Use MIDI Track in your music 
room, or use it in your concerts. It's equal to any- 
thing around - at a fraction of the cost. Plus you can 
instantly find and load the exact sounds you want 
with the famous Hybrid Arts Patch Librarians. So, 
whether you're a garage band on the way up, a 
successful professional, or even if your family just 
gathers around the keyboards in the evening, MIDI 
is your future in music. And MIDI is Hybrid Arts. 

MIDI Track II (TH0034) $Z&tTnow $174 

MIDI Track III (128K) (TH0035).. pttnow $187 

Plus these great Patch Librarians: 
MIDI Patch CZ (for Casio CZ keyboards) 

(TH0036) $3&$5now $39.95 

DX Editor (for Yamaha DX Keyboards) 

(TH0037) $±13^5 now $59.95 

Gen Patch (generic, for all equipment) 

(TH0038) $±4&ttnow $74.50 

J PERSONAL POWER 

You paid for Player-Missle Graphics, Display List 
Interrupts, superb sound, etc. - why can't you use 
them? Now you can! Advan BASIC is the most 
powerful language ever created for your Atari. 
But it's also the easiest to use. Write high speed, 
professional-quality, software. It's easy and fun. 
Since it's BASIC, it's very easy to use. Since it's 
compiled, it's very, very fast. Order now, save 25% 

Advan BASIC (TH0039) $3&9S now $29.95 

Modules to increase your productivity: 
Utilities Pack (includes runtime) 

(TH0040) $2Sr9S now $24.95 

Screen Design (for the professional look) 

(TH0041) $2&Sfr now $24.95 

Optimizing Compiler (when speed's everything) 
(TH0042) now $19.95 



ANTIC S 



THE ANTIC ARCADE NI 

YOUR PURCHASES GUARANTEE 1 



Jk PRODUCTIVITY TOOLS 
TO KEEP YOU AHEAD 



A, EXCITMENT, CHALLENGE, 
AND WONDER 



CREATIVE PROCESS - This amazing outline 
processor organizes your ideas for writing - or for 

anything else. (AP0151) $19.95 

SPELL MAGIC - Catch embarrassing spelling 
errors in your reports and letters. Works with any 

word processor. (AP0144) $19.95 

PRINTER DRIVER CONSTRUCTION SET - 
Make your AtariWriter cartridge compatible with 

any printer. (AP0131) $19.95 

BACKTALK 1.2- The programmable macros 
automate your telecommunications, save you time 

and money. (AP0154) $19.95 

CHAMELEON TERMINAL EMULATOR - Call a 
mainframe with your Atari: TTY, ADM-3A, VT-52, 

IBM 3031. (AP0113) $19.95 

DISK SCANNER - Recover damaged or deleted 
files on single or double density drives. 

(AP0145) $15.95 

SHERLOCK 1050 - Recover damaged or deleted 
files on single or enhanced (dual) density drives. 
(AP0155) $19.95 



ORDER BY MAIL! 



Send check or money order to: 

Antic Software#MA89, 

544 Second Street, 

San Francisco, CA 94107. 
or phone toll free 

$20.00 minimum order, please include 
$3.00 shipping and handling per order. 
California residents add 6.5% sales tax. 



XTAL (CRYSTAL) - Command a star cruiser! 
Detailed effects are everywhere. More than a game: 
an epic. (AP0158) $15.95 

BLUE TEAM BRIDGE - Tournament level. Play at any 
time, improves your bidding-or learn to play. Great 
graphics (AP0178) $15.95 



ASTROLOGY - Create beautiful charts for your 
family and friends. Imaginative gifts, always 

popular. (AP0167) $15.95 

ATARIORACLE - The computer OUJI board. 
Predicts the future, answers all questions, picks 

LOTTO numbers. (AP0138) $15.95 

CRIBBAGE and SEVEN CARD STUD - Two 
great card games. The poker players don't cheat, 

but they bluff. (AP0173) $15.95 

COLOSSUS CHESS 3.0 - The best Atari chess 
game for the serious player, beginner or Grand- 
Master. (AP0161) $15.95 

PUZZLER - Infinite jigsaw puzzles, use your own 
pictures. Set difficulty level for any age group. 

(APO150) $12.95 

BUMPOMOVS DOGS - A two-player, non-violent, 
action game you can enjoy with your kids. Great 

family fun. (AP0112) $12.95 

BURGERS - Computer fun for younger kids. If you 

eat too many burgers, POP! (APO109) $12.95 

TAXICAB HILL - Delightfully chaotic as other 
cabbies steal your fares. Variety of neighborhoods, 

great music. (AP0137) $15.95 

DIGGERBONK - Scrolling, multi-screen arcade 
excitement for kids of all ages, complete with a 

Panic Button. (APO107) $12.95 

DRAGON'S QUEST - A wonderful illustrated 
adventure game for your entire family. Fast and 

fantastical. (AP0139) $15.95 

KING TUT'S TOMB and CONSTRUCTION SET 
- 48 dangerous, multi-screen tombs, or construct 

your own. (AP0149) $15.95 

LORD OF THE ORB - Intense arcade action as 
you search the huge scrolling castle for the stolen 

Orb. (APO103) $15.95 

CHOP SUEY - Joystick-busting, action-packed, 
martial arts excitment. One of our all-time best 

sellers. (AP0162) $15.95 

MARS MISSION II - Streak through the skies and 
the caverns of Mars. Furious action is everywhere. 
(APO120) $15.95 



OFTWARE 



24 HOURS 



EDS YOU - HELP US GROW 

UTURE SOFTWARE FOR YOUR ATARI 




Visa MasterCard 



A, ART + MUSIC + JOY = 
COMPUTER CREATIVITY 



COLOURSPACE - The spectacular visual effects 
generator. Control your own mind-bending light 

shows. (AP0166) $15.95 

RAMBRANDT - The best paint software, bar none. 

Joystick or tablet. Best seller. (AP0157) $19.95 

SOLID OBJECT MODULE - Create 3-D objects 
automatically, view from any angle. (Requires 

RAMbrandt). (AP0182) $15.95 

PICTURE PLUS and LISTER PLUS - The 
complete graphics printing set. For almost all 

pictures and printers (AP0179) $19.95 

SCREENPLOT - Print Atari pictures on most 
plotters, including the Atari 1020. (AP0135) .. $15.95 
ENHANCED POKEY PLAYER - Compose music, 
change it - experiment. Save the best. Add songs to 

your programs. (AP0147) $15.95 

ENVISION - Fills all your character graphics needs: 
animation, fonts, multi-screen maps, much more. 

(AP0185) $19.95 

GRAPHICS SHOP - Convert your own pictures to 
use with Print Shop signs, banners, cards, etc. 
(AP0156) $19.95 

POWER TOOLS 



BASIC VIEW - BASIC program analyzer and 
debugger. Write better programs, faster. For beginner 

or expert. (AP0192) $19.95 

FLOATING POINT PACKAGE and EXTENDED 
DDT - Easy math for MAC/65 and a great assembly 

debugger. (AP0189) $19.95 

DEEP BLUE C and MATHLIB - Use C, the language 
of the future, now! Includes advanced math library. 

(AP0188) $19.95 

INTERLISP/65 - Learn Artificial Intelligence 
programming with LISP, available now for your Atari. 
(AP0191) $19.95 



PERSONAL GROWTH FOR 
YOU AND YOUR FAMILY 



SPEEDREAD+ - Double or triple your reading 
speed. Read with less effort and better compre- 
hension. Proven techniques. (AP0164) $19.95 

MEMOREASE+ - Memorize anything quickly and 
easily. Learn speeches, songs, drama roles, etc. 

Improve your memory. (AP0163) $19.95 

EARTH VIEWS - An electronic globe/atlas and an 
exciting geography game. Useful, educational, fun. 

(AP0141) $19.95 

MAPWARE - Generate varied maps in 4 projections 

for school, business, HAM, etc. (AP0134) $19.95 

SPACE BASE - Star atlas identifies objects, refer- 
ence base gives you detailed information. For all 

ages. (AP0142) $19.95 

ORBIT: A TRIP TO THE MOON - Pilot your craft 
from Earth orbit to Lunar landing. Learn space 

navigation. (AP0168) $15.95 

SARATOGA - American Revolution strategy game. 
Detailed, realistic, fun. Full-color playfield map. 
(APO104) $15.95 



$ 1 o. 00 

Each 



PUBLIC DOMAIN 
WINNERS! 



PHOTO GRAPHICS - Great digitized pictures (PD0017) 
ANTIC FORTH - Compact, fast programming language (PD0020) 
THE FIX XL - Run older programs on XL/XE computers (PD0026) 
CROCKFORD'S WHIMSY - Magical disk for all ages (PD0033) 
CUES EDPACK #1 - Educational programs (PD0044) 
CUES EDPACK #2 - More Educational programs (PD0045) 
ASTRONOMY & METEROLOGY Great for the hobbiest (PD0063) 
130XE HI-RES DESIGNER - GR.8 draw pgm for 130XE (PD0070) 
HEAVY METAL ART - Spectacular pictures, 100s of colors (PD0060) 
RAMBRANDT COLLECTION - The best RAMbrandt art (PD0073) 
STEVE DONG'S GALLERY - Incl. Challenger memorial (PD0074) 
VT100 TERMINAL EMULATOR - Access mainframes (PD0037) 
TEK 4010 TERM EMULATOR - For graphic mainframes (PD0083) 
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Antic Classifieds 



SOFTWARE, ETC. 

FREE 3 1/2 or 5 1/4 DISKETTE when you 
purchase the Static Discharge Button. Instantly 
grounds any static electricity your body is 
charged with. Velcro® mounted to your com- 
puter workplace. $9-95 plus $3.00 P & H. 
GAGNON'S COMPUTERS Inc., 1237 Park Gar- 
dcn Rd., Great Falls, Montana 59404 (3/89) 
Atari 800/XL/XE public domain disks. High 
quality disks, fast service, free list. 1st Byte, 
PO Box 130822, Tyler, TX 75713 (3/89) 

Now,instantly examine and modify programs. 
The one and only RAMdisk sector editor. $9 95 
Logic One, Box 18123, Cleve., OH 44118-0123 

(3/89) 

Try our Atari Public Domain Software. 
Special— Eight Double-Sided Print Shop disks 
only $19.95, or send for free catalog. Sagamore 
Software, 2104 Arapahoe Drive, Lafayette, Indi- 
ana 47905 (3/89) 

****** 

BATTERY BACKED UP RAMDISK. Never 
lose your memory, Boot from Ramdisk! No 
installation. Ramdisk cartridge plugs into Atari 
400/800 or XL/XE. 32K $99.95, 64K $129-95. 
192K $249.95 Certified check, Money order, 
VISA accepted. CANOE COMPUTER SERV- 
ICES, 11006-155 St. Edmonton, AB, T5P-2N3 
Phone (403) 437-4619 (3/89) 



****** 

Stop overpaying for P.D. Software!!! ALL 8-bit 
disks only $2.00 each, ST only $3-00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS, 890 N. 
Huntington St., Medina, OH 44256 (3/89) 

ENJOY quality public domain software! 
Games — productivity — utilities — communi- 
cations—more! Catalog FREE . . . demo disk, 
$3 00. Homemade, 6011 Hyde Park Circle, 
Suite 203, Jacksonville, FL 32210 (3/89) 

Discount Software/Hardware for ATARI 8-bit & 
ST. 30% below retail Atari 130XE $145, Supra 
20meg-ST $579, ATARI XF551 disk drive $175, 
Anchor 2400 baud modem $159, Star NX-1000 
color $239. Send $1 for 20 page catalog with 
over 500 titles. Specify computer type. MULTI 
VIDEO SERVICES, Box 246, E.Amherst, NY 
14051 Phone 716 688-0469 after 6 pm (4/89) 
Si's Fantastic Selection of packed ATARI 8-bit 
(D-S)/ST PD Theme Disks is Far SUPERIOR to 
all other collections we've seen— TRY US! Send 
for MLX GAMES'GREATEST HITS (our Most 
Popular title), plus Si's newest catalog, for 
8-bit/$3.00 or STO4.50. Catalog alone (specify 
system)/$2.00. SOFTWARE INFINITY, 642 East 
Waring Avenue, State College, PA 16801 (3/89) 



ADVERTISING SALES 



MGL COMPUTER WHOLESALERS BUY- 
SELL-TRADE Used 8 Bit Computers, Software, 
Diskdrives, Modems, Printers and accessories. 
Huge Public Domain Library. Low Prices-30 
day Warranty. Call 717-267-3205 or 267-2865, 
or 762-6967 For Prices and Complete List 

(4/89) 

Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, PO Box 692 

Manassas, VA 22111-0692(7/89) 

SynFile + UTILITY PROGRAMS. Print file lay- 
out, create and save reports, undelete records, 
alter look-up tables, etc. $19.95 plus $2.00 
P&H. Send large SASE for more info SFP, 4 
Forest Drive, Palmyra, VA 22963 (5/89) 

AGAPE GAMES-5 CHRISTIAN GAMES 

KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener- 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
$12.95-Daniel Sharpe, GPO 911, Chicopee, MA 

01Q21.(3/89) 

Business Applications for your Atari ST. Spread- 
sheet templates, databases, word processors, 
specialized software. SASE for full catalog. ST- 
Land PDware, Box 1646, Orange Park., FL 
32067-1647 (3/89) 



West Coast Advertising Sales Representative: East Coast Advertising Sales Representative: Address all advertising materials to: 



AUSTIN HOLIAN 

544 Second Street 

San Francisco, CA 94107 

(415) 957-0886 



DAVID S. KESTER 

544 Second Street 

San Francisco, CA 94107 

(415) 957-0886 



KATE MURPHY 

Advertising Production Coordinator 
Antic Magazine 

544 Second Street 

San Francisco, CA 94107 




COMPUTE 
YOUR 
ROOTS 

The Only Complete 
Genealogy Package For 
Atari Computer Systems 



Compute Uour Roots for ST 1 s 



1 Gem Based 

1 Fast, Multiple Field Search 

' LDS/Non LDS Forms 

" Family Group Sheet 

" Marriage Entry Form 

* Color/Mono ST w/ 51 2K min. 



* Single Data Entry System 

* Automatic Pedigree Links 

* pedigree Chart 

* Individual Entry Form 

* Custom Sorted Lists 

* Many, many more Features 



Compute Ijour Roots for 8 bits 

" Pedigree Charts • Cut & Paste Pedigree Chart 

* Family Group Sheets * Single or Double Density 

* History Writer * Simple & Colorful Menus 
' Chart Searcher * 10 & 15 Inch Printouts 

* Requires 48K & Disk Drive * Requires Basic Lang. Cart. 



To Order send Check or Money Order to the Below Address: 
$37.50 Atari 8 bit version $39.95 Atari ST version 
VISA/MASTERCARD Orders Call 801-483-3357 
Wasatch Genealogical Software 
2899 West 7550 South * West Jordan * Utah * 84084 



* Nev Products/ * 

Raidrlve f IJ2K - Tie IHKIHISIVE IMS upgrade. 
Movs a FULL single density riidisk! Includes 
instructions for use vith: ItariVriter f (rin it's 
prograis froi laidiskf), Basic U, DOS 2. OS/2. 5, 
MvDOS. TopDOS, SpartaDOS, aid nev SpjrtaDOS I Cart. 
Also licludes disk, fall of utilities. Ixcelleit for 
disk lainteoancei Soldering/desoldering required. 
Price: $34.95 (I SSH - see belov) 

IFJ5 fit - J. 5" [72HJ drire upgrade for tke IF551. 
forks rith: If/DOS, SpartaDOS aid nev SpartaDOS I 
Cart. Also rorks (3(0X/less) vith all other DOS's. 
Excellent for IBS/back ip use! Includes: Upgrade P.0H, 
adapter cables, comectors, and user notes. The 3.5' 
drive lechanisi and bood ting cage are available 
separately. Jfiniial solderiig/desoldering required. 
Price: $34.95 [i S4H - see belov) 

Snip/Hand: Idd $3.11 (USA/1P0/PPO) . COD $2.76 (USD. 
Canada/Kexico: Idd $7.10. Others: Add JjO.OO SIR. 

le hare HANT 9 tier UNTO 8-bH products! 
Call/Write for oir latest tRKB alaloq. 
See os on CompuServe (D115) li Atari!. 
Fe Buy/Sell/Trade/Iepair 1 tar i egiipient. 
le Buy lkHS/£?lQHS. Call/Krite for quote. 

rnnovatl ve Concepts 
31112 Shawn Drive 
Warren, Ml 48093 

Phone: (313) 293-0130 
CompuServe: 16004 r 1164 




TIRED OF TYPING? 
BUGGED BY DEBUGGING? 



GET ALL THE PROGRAMS WITH ANTIC ON DISK! 
MORE THAN 40% OFF REGULAR PRICE! 
ANTIC'S MAGAZINE DISK ONLY 
(plus 2.00 shipping and handling) 
FOR SAME DAY SERVICE CALL 
(415) 957-0886 between 8am and 3pm 
Ask for the DISK DESK. 
Use your Visa or Mastercard. 
Or send check or money order to: 
ANTIC PUBLISHING 
544-2ND ST. 
SAN FRANCISCO, CA 94107 



Advertisers 
Index 



PAGE NO. 

ALPHA SYSTEMS 41 

AMERICAN TECHNAVISION 4 

COMPUTABILITY 42,43 

COMPUTER MAIL ORDER 8,9 

COMPUTER SOFTWARE SERVICES IFC 

INNOVATIVE CONCEPTS 54 

PSYGNOSIS BC 

SOFTWARE DISCOUNTERS OF AMERICA IBC 

TERRIFIC SOFTWARE 50 

WASATCH GENEOLOGICAL SOFTWARE 54 

This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 




May 1989 



Insertion Orders: January 30 
Artwork: February 6 

On Sale: Last week of March 



June 1989 



Insertion Orders: February 28 

Artwork: March 7 

On Sale: Last week of April 



July 1989 



Insertion Orders: March 30 

Artwork: April 6 

On Sale: Last week of May 



BUY 



SELL 



TRADE 



SWAP 



Antic Classifieds 

544 Second Street, San Francisco, CA 94017 
Telephone (415) 957-0886 



City/State/Zip 



MasterCard/Visa Number 



Signature 

Enclosed is my payment for S_ 



Company 



Expiration Date 



Issue(s) Ad to Appear 



RATE: $1.00 PER WORD— twenty (20) word minimum. 

BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars ★★★★★★ at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988 — December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 



AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



Tech Tips 



The following three Tech Tips come from Greg Vozzo of 
Brightwaters, New York. 



RJ 
IM 



148 REM R = NUMBER OK HORIZONT ft L ROUS IN 

SELECTED GRAPHICS MODE. 
150 REM R0M5=NUMBER OF ROWS USED BY 

TEXT • 



M/L START-OVER 

If you want to restart a machine language program, you 
must reboot the computer, right? Wrong! This short 
program lets you restart your machine language pro- 
gram just by pressing the [RESET] key. It will also run short 
machine language subroutines before entering BASIC. To 
disable the M/L Start-Over routine, either hold down [SE- 
LECT] after pressing [RESET] until the READY prompt ap- 
pears, or POKE anything except a 1 into memory loca- 
tion 1791. Be SURE that your machine language routine 
doesn't use Page 6. 

AG 



ZJ 



DB 



IX 



Don't type the 
TYPO II Codes! 

188 FOR 1=1768 TO 1798 : REftD ft : POKE I, ft 
: NEXT I:FOR 1=1536 TO 1568 : REftD fl:POKE 

I , ft : NE X T I:ft = U5Rci536J 
288 FOR 1=1536 TO 1568 : POKE I,8:NEXT I 
:? "ML ftOTORUN PROGRAM IN5TftLLED . " ■ ? " 

press mmmmu to actiuate . •■ : new 

588 DATA 32,252,6,173,255,6,281,1,288, 
18, 173, 31, 288, 281, 5, 24 8, 3, 188, 253, 6, 96 

,[!n;][!], mnram 

688 DATA 184,169,1,141,255,6,165,12,14 
1,233,6,165,13,141,2 34,6,169,2 32,133,1 
2,169,6,133,13,96 



TEXT CENTRAL 

This routine shows you how to center your text 
on a Graphics 0 screen. In lines 65-66, if the cur- 
sor is already in the correct row, then instead 
of using POSITION X,Y, you can use POKE 85,X to 
set the X position. The last REM statements describe 
how to enter several lines of text vertically. These 
can be combined with horizontal centering. 

LX 
TL 
CA 
T5 
5R 
TK 



YO 

5X 
JG 
IG 
TO 
XL 
GZ 
WL 
QC 



Don't type the 
TYPO II Codes! 

5 REM TO 
18 GRAPH 
15 POKE 
28 C0L=4 
38 V=ll 
48 DIM T 
" s REM TE 
58 X=INT 
5T ART IN 
68 POSIT 

65 REM 0 

66 REM A 
78 GOTO 
188 REM 
118 REM 
128 REM 
138 REM 

LINE . 



CENTER TEXT HORIZONTALLY 
ICS 8 : R EM USE ANY MODE 
752,l:REM DISABLE CURSOR 
8 : REM « OF UERTICAL COLOMNS 
REM Y COORDINATE 

EXT$ C141 : TEXT$="ANTIC MAGAZINE 
XT TO CENTER 

ccC0L-LENcTEXT$)*'2i : REM FIND 
G X COORDINATE 
ION X,Y:? TEXTS : REM PRINT 
R... POKE 85, X IF CURSOR IS 
LREADY AT THE Y COORDINATE 
78 

TO CENTER UERTICALLY, 
USE THIS FORMULA: 
Y = INT c CR-R0U5> '2> 
Y= Y COORDINATE OF FIRST TEXT 



TUNING VIDEO COLORS 

Having a tough time tuning your Atari's 16 colors 
correctly? This short program draws the 16 colors in 
horizontal bands, in ascending order from 0 to 15. 

10 GRAPHICS lhFOR 1=1 TO 15.COLOR I: FOR 
J=I*10 TO I* 10 + 8: PLOT 0, f.DRAWTO 79, J: NEXT 
J:NEXT I 20 GOTO 20 

Refer to the following Color Table as you adjust the 
color and tint controls on your monitor or television set. 



HUE # 
0 
1 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 
14 
15 



COLOR 

Gray 

Gold 

Orange 

Red-orange 

Pink 

Pink-purple 
Purple-blue 
Blue 
Blue 

Light blue 
Turquoise 
Green-blue 
Green 

Yellow-green 
Orange-green 
Light orange 



This Color Band program requires that your Atari 
have a GTIA chip, which was not in some of the older 
pre-XL Atari units. To test your computer, type POKE 
623,64 — and if the screen turns black, you have GTIA. 
A blue screen means you don't. 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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ANTIC. THE ATARI RESOURCE 



Software Discounters 
of America 



S.D. of A. 



USA/Canada Orders— 1-800-225-7638 
PA Orders— 1-800-223-7784 
Customer Service 412-361-5291 



• Free shipping on orders W 
over $100 in continental USA 

• No Surcharge for VISA/MasterCard 

• Your Card is not charged until we ship 



ACCESS 

Leader Board Golf & 

Tourn. Disk (D) $9.88 

Leader Board Golf & Tourn. 

Disk #1 ST $16 

Tenth Frame ST $25 

Triple Pack: BH1, BH2, Raid 

Over Moscow (D) $14 

ACCOLADE 

Bubble Ghost ST $23 

Fight Night (D) $14 

Hardball (D) $14 

Mini Putt ST $23 

Test Drive ST $25 

ACTIVISION 
Cross Country 

Road Race (D) $9.88 

Ghostbusters (D) $9.88 

Music Studio (D) $23 

AMERICAN EDUCATION 

Biology (D) $12 

Grammar (D) $12 

Science (D) Call 

U.S. Geography (D) $12 

U.S. History (D) $12 

Vocabulary (D) $12 

World History (D) $12 

ANTIC 

A-Calc Prime ST $25 

A-Chart ST $19 

Cyber Paint 2.0 ST $49 

Cyber Sculpt ST $59 

Cyber Texture ST $33 

Flash ST $19 

Phasar 3.0 ST $59 

Spectrum 512 ST $44 

ARTWORX 



Bridge 5.0 (D) $19 

Bridge 5.0 ST $23 

Cycle Knight (D) $14 

Linkword French (D) $16 

Linkword French 

1 or 2 ST $19 Ea. 

Linkword German (D) . . . .$16 

Linkword Russian ST $19 

Linkword Spanish (D) ... .$16 

Linkword Spanish ST $19 

Strip Poker (D) $21 

Strip Poker 2 ST $25 

Female Data Disk 1(D) . . .$14 

Male Data Disk 2(D) $14 

Female Data Disk 3(D) . . .$14 
Female Data Disk#4 ST. . .$14 
Female Data Disk#5 ST. . .$14 
AUDIO LIGHT 

Music Studio '88 ST $39 

BATTERIES INCLUDED 

Degas Elite ST $39 

BRODERBUND 

Karateka (D) $9.88 

Karateka ST $23 

Loderunner (D) $9.88 

Print Shop (D) $26 

Print Shop Graphics 

Library#1, #2, #3 (D) $16. Ea. 
P.S. Companion 64K (D) . .$23 

Sky Chase ST $25 

Super Bike Challenge ST . .$14 
CENTRAL POINT 



Copy 2 ST $23 

CINEMAWARE 



Defender of the Crown ST $33 

S.D.I. ST $33 

Sinbad: Throne of 

the Falcon ST $33 

CODE HEAD 



Multi-Desk ST $19 

DATASOFT 
Alternate Reality: 



The City (D) $19 

The City ST $26 

The Dungeon (D) $19 

Bismarck ST $26 

Firezone ST Call 

Global Commander ST . . .$26 
Hunt for Red October (D) Call 
Hunt for Red October ST . $32 

Tomahawk 64K (D) $21 

Video Title Shop 64K (D) .$21 
DAVIDSON 

Math Blaster (D) $32 

Spell It (D) $32 

Word Attack (D) $32 

ELECTRONIC ARTS 
Software Classic Series: 
Financial Cookbook (D) .$6.88 
Lords of Conquest (D) . .$9.88 

Movie Maker (D) $9.88 

Music Const. Set (D) ... $9.88 
Pinball Const. Set (D) . .$9.88 
Seven Cities of Gold (D) $9.88 
Super Boulder Dash (D).$9.88 
ELECTRONIC ARTS 
Arcticfox ST $14 



Final Assault ST $33 

Impossible Mission 2 ST . .$33 

Metrocross ST $16 

Space Station Oblivion ST $33 

Summer Games (D) $14 

Technocop ST Call 

Temple Apshai (D) $9.88 

Temple Apshai Trilogy ST .$14 

Tower Toppler ST $33 

Winter Games ST $14 

World Games ST $14 

EQUAL PLUS 

Financial Plus ST $129 

FORESIGHT 

Draphix ST $119 

Draphix Data Plotter ST . .$29 
FTL 

Dungeonmaster ST $25 

Oids ST $23 

Sundog ST $23 

GAMESTAR 

Champ. Football ST $25 

GRIBNIF 

Neo Desk ST $19 



Vegas Craps ST $23 

Vegas Gambler ST $23 

MASTERTRONIC 

Chopper X ST $14 

Ninja (D) $4.88 

Ninja Mission ST $14 

The Last V8 (D) $4.88 

Vegas Poker & 

Jackpot(D) $4.88 

MEGAMAX 

Laser C ST $129 

MICHTRON 

Airball ST $25 

Airball Const. Set ST $16 

C. Breeze ST $33 

GFA Artist ST $49 

GFA Basic Book ST $25 

GFA Basic Int. 3.0 ST $65 

GFA Basic Compiler ST. . .$39 

Goldrunner 2 ST $25 

Intl. Soccer ST $25 

Juggler ST $33 

Leatherneck ST $25 

Master CAD ST $129 

Stuff ST $25 



Harrier Combat Sim. ST . .$33 
Indiana Jones & The 

Temple of Doom ST $33 

Infiltrator 64K (D) $19 

Into the Eagle's Nest ST . .$25 

Joker Poker ST $33 

Out Run ST $33 

Road Raider ST $33 

Road Runner ST $33 

720 ST Call 

Shadowgate ST $33 

Space Harrier ST $33 

Super Star Hockey ST $33 

Uninvited ST $33 

'Requires Gauntlet! 
OMNITREND 

Breach ST $25 

Breach Scenario Disk ST. .$16 

Paladin ST $25 

Quest Disk for Paladin ST. $16 

Universe 2 ST $33 

ORIGIN 

Autoduel (D) or ST $25 

Moebius ST $25 

Quest for Clues (Book) . . .$19 




MINDSCAPE INC 



This is the real thing. You're 
flying this mission solo into 
territory that's as hostile as 
it gets. 

Harrier Combat Simulator 
List $49.95 

Our Discount Price $33 




For the Atari ST 



Awesome Arcade Pack ST . $32 

Bard's Tale ST $32 

Chessmaster 2000 (D) $26 

Chessmaster 2000 ST $29 

Double Dragon ST Call 

Empire ST $32 

Financial Cookbook ST .$9.88 
Lords of Conquest ST .... $14 

Marble Madness ST $26 

Mavis Beacon Teaches 

Typing ST $32 

Music Const. Set ST $32 

Roadwars ST $21 

Rockford ST $21 

Scrabble ST $26 

Scruples ST $26 

Star Fleet 1 ST $35 

Star Fleet 1 (D) $32 

Zany Golf ST Call 

EPYX 

Art & Film Director ST. . .$49 

Battleship ST $19 

California Games ST $33 

Champ. Wrestling ST $14 

Dive Bomber ST $33 



HIGH-TECH EXPRESSIONS 

Astro-Grover (D) $6.88 

Award Ware (D) $9.88 

Big Bird's Spc. Delivery (D) $6fl8 
Ernie's Magic Shapes (D) $6.88 

Print Power (D) $9.88 

Sesame St. Print Kit (D) .$9.88 

♦All Hi-Tech req. 64K! 

ICD 

PR Connection $59 

Rambo XL $29 

US Doubler: 

with Sparta DOS $49 

without Sparta DOS . . .$29 

INTERSECT 

Interlink ST $25 

Revolver ST $33 

ISP 

Dyna Cadd ST $447 

Masterplan ST $59 

Vip Professional ST $95 

LDW 

Basic Compiler 2.0 ST . . .$59 

Club Backgammon ST $23 

Power Spreadsheet ST ... . $95 



Tanglewood ST $25 

Tetra Quest ST $25 

Time Bandit ST $25 

Tune Up ST $33 

MICROLEAGUE 

Baseball (D) $25 

Baseball 2 ST $39 

Box Score Stats (D) $16 

General Manager (D) or ST . $19 
1987 Team Data (D) or ST $14 
MICROPROSE 

F15 Strike Eagle (D) $23 

F15 Strike Eagle ST $25 

Gunship ST $33 

Silent Service (D) $23 

Silent Service ST $25 

MINDSCAPE 

Alien Syndrome ST Call 

Balance of Power ST $33 

Blockbuster ST $25 

Bop & Wrestle 64K (D) . . .$19 

Captain Blood ST $33 

De Ja Vu ST $33 

♦Deeper Dungeons (D) . . .$16 

Gauntlet ST $33 

Gauntlet 64K (D) $23 



Ultima 3 (D) or ST $25 

Ultima 4 (D) or ST $39 

PROGRESSIVE 

Superbase Professional ST$189 
PROSPERO 

First Word Plus ST Call 

QMI 

Desk Cart ST $59 

ST Talk Professional $19 

RAINBIRD 

Black Lamp ST $19 

Carrier Command ST . . . .$29 

Corruption ST $29 

Elite ST $23 

Guild of Thieves ST $29 

Jinxter ST $25 

Starglider 2 ST $29 

The Pawn ST $19 

Universal Military 

Simulator ST $33 

Virus ST $19 

REEVE 

Diamond OS (D) $19 

SIERRA 

Black Cauldron ST $25 



King's Quest 

1, 2, or 3 ST $33 Ea. 

Leisure Suit Larry ST $25 

Manhunter ST $33 

Mixed-Up Mother Goose ST$19 

Police Quest ST $33 

Space Quest 1 or 2 ST $33 Ea. 
SIMON & SCHUSTER 

Star Trek ST $25 

SOFTREK 

Turbo ST $33 

SPRINGBOARD 

Certificate Maker ST $25 

CM. Library#1 ST $19 

Newsroom 64K (D) $33 

SSI 

Advanced Dungeons & 
Dragon: Heroes of the 

Lance ST $26 

Phantasie 1, 2 or 3 ST . . .$26 

Questran 2 ST $32 

Rings of Zilfin ST $26 

Roadwar Europa ST $29 

Roadwar 2000 ST $26 

Stellar Crusade ST $39 

War Game Const. Set (D) .$19 
War Game Const. Set ST .$23 

Warship ST $39 

Wizard's Crown (D) or ST $26 
SUBLOGIC 

Flight Sim. 2 ST $33 

F.S. Scenery Disks Call 

Jet ST $33 

THREE SIXTY 

Dark Castle ST $25 

Warlock ST $23 

THUNDER MOUNTAIN 
Summer Challenge ST . .$9.88 

Tau Ceti ST $9.88 

Top Gun ST $9.88 

Winter Challenge ST . . . $9.88 

Wizball ST $9.88 

TIMEWORKS 

Data Manager ST $49 

Desktop Publisher ST $87 

D.P. Clip Art: 

Design Ideas ST $25 

Education Graphics ST .$25 
People, Places & Things ST$25 
Symbols & Slogans ST . .$25 

Partner ST $33 

Swiftcalc ST $49 

Word Writer ST $49 

UNISON WORLD 

Art Gallery: Fantasy ST . . .$19 

Art Gallery 1 or 2 ST .$19 Ea. 

Print Master Plus ST $25 

P.M. Fonts & Borders ST . . $23 
VERSASOFT 

db Man V5.0 ST $149 

MARK WILLIAMS 

C Source Dedugger ST . . .$44 

Mark Williams C ST $119 

WORD PERFECT 

WP Word Processor ST . .Call 

ACCESSORIES 

Bonus 5% SS, DD . .$4.99 BX 
Bonus 5% DS, DD . .$5.99 BX 
Compuserve Starter Kit . . .$19 

Disk Drive Cleaner $6.88 

Epyx 200 XJ Joystick $12 

Epyx 500 XJ Joystick $14 

IMG Scan ST $65 

Indus GT Drive Call 

Supra Hard Drives Call 

Supra Modems Call 

Wico Bat Handle $17 

Wico Boss $12 

Wico Ergostick $19 

Wico Red Ball $17 



P.O. BOX 111327 — DEPT. AT — B LAWN OX, PA 15238 



•Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal & Company 
checks, allow 3 weeks clearance. No C.O.D.'s! Shipping: Continental U.S.A.-Orders under $100 add $3; free shipping on orders over $100. AK, HI, FPO, APO-add $5 on all orders. Canada & Puerto 
Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges. CUSTOMER SERVICE HOURS: Mon.-Fri. 
9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE— 412-361-5291 (DStatus of order or back order (2)if any merchandise purchased within 60 days from S.D.of A. is defective, 
please call for a return authorization number. We will not process a return without a return auth. #! Defective merchandise will be replaced with the same merchandise only. Other returns subject 
to a 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & return directly to the manufacturer. Customer service will 
not accept collect calls or calls on S.D.of A.'s 800# order lines! Prices & availability are subject to change! New titles are arriving daily! Please call for more information. ORDER LINE HOURS: Mon.-Thurs. 
9:00 AM-7:00 PM Fri. 9:00 AM-5:30 PM Sat. 10:00 AM-4:00 PM Eastern Time. 
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MENACE is a pure arcade game — a fast action packed journey 
through six very different worlds where lightning fast reflexes and 
furious fire button action are your only hope of survival. 

Your mission orders are simple, you must destroy the planet 
Draconia. In theory possible, in practice . . . 

The planet Draconia, an unnatural planet, has been formed over 
many centuries by six of the most feared rulers that have ever 
existed. These rulers, exiled from their home galaxy, have ravaged 
and plundered space, using the worlds they have destroyed and the 
life forms they have created to build this planet of fear and death. 

Now an end must be put to their reign of terror. A large scale attack 
wi II prove too costly to our space fleets. Draconia has many orbiting 
defence systems, the sacrifice may be in thousands of lives. A single 
fighter craft, approaching undetected, may have a chance to avenge 
those who have perished, by destroying Draconia. You have that 
chance . . . 

AMIGA/ATARI ST —$29.95 



ADDICTIVE ARCADE ACTION 

PSYCLAPSE — A NEW LABEL FROM PSYGNOSIS 




COMPUTER 
SOFTWARE 
SERVICE 


2150 Executive Drive 
Addison Illinois 60101 
Toll Free: 1-800-422-4912 
In Illinois: 1-800-331 -SOFT 




